为什么回调没有被执行？

Question

I'm writing a basic web application (begin with seaside) but the callback never runs...any ideas?

renderContentOn: html

  | group |
  html form: [

    html text: 'Gender: '.
    group := html radioGroup.
    group radioButton
        selected: self contact isMale;
        callback: [ self contact beMale ].
    html text: 'Male'.
    group radioButton
        selected: self contact isFemale;
        callback: [ self contact beFemale ].
    html text: 'Female'.
    html break.

    html anchor
    callback: [ mmpiItems setAnswer: (self option) ];
    with: 'Next'.
 ]

Answer 1

An anchor inside the form does not submit the form, only a submitbutton does. This is not defined by Seaside but by HTML.

You can find more information in the seaside book on writing forms with Seaside: http://book.seaside.st/book/fundamentals/forms

Answer 2

You must use submitButton instead of an anchor or any other button .

Your code would look like this:

renderContentOn: html

 | group |
 html form: [
   html text: 'Gender: '.
   group := html radioGroup.
   group radioButton
     selected: self contact isMale;
     callback: [ self contact beMale ].
   html text: 'Male'.
   group radioButton
     selected: self contact isFemale;
     callback: [ self contact beFemale ].
   html text: 'Female'.
   html break.
   "Use a submitButton instead of a regular anchor/button"
   html submitButton
     callback: [ mmpiItems setAnswer: (self option) ];
     with: 'Next'.
   ]