为什么未执行回调

Question

我正在写一个基本的Web应用程序（从海边开始），但是回调永远不会运行...有任何想法吗？

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

表格中的锚点不会提交表格，只有提交班顿才能提交。这不是由海边定义的，而是由HTML定义的。

您可以在海滨书籍中找到有关海滨写作表格的更多信息：

您必须使用submitButton代替anchor或任何其他button。

您的代码看起来像这样：

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'.
   ]