<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_rrevftrf0n1j6cq9lg5t02tm93, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

module CategorizeRandomSpeechLogLines {
  S line, category, answer;
  
  start {
    setModuleName("Random Speech Log Line (of " + n2(dm_speechLog(), "line") + ")");
  }
  
  visualize {
    JLabel lbl = makeBold(fontSizePlus(3, dm_centeredFieldLabel('line)));
    awtCalcEvery(lbl,
      0.0, 5.0, r {
        if (mouseInComponent(dm_frame())) ret;
        setField(line := random(dm_speechLog()));
      });
    ret centerAndSouth(lbl,
      withMargin(vstackWithSpacing(
        westCenterAndEastWithMargin(jlabel("Is this line"),
          dm_fieldTextField('category), jlabel("?")),
        westCenterAndEastWithMargin(
          leftAlignedButtons(
            "Yes", rThread { save("yes") }, "No", rThread { save("no") }),
          onEnter(dm_fieldTextField('answer), rThread save),
          jbutton("Save", rThread save))
      )));
  }
  
  void save(S answer) enter { setField(+answer); save(); }
  
  void save enter {
    if (empty(answer) || empty(line) || empty(category)) ret;
    dm_callModule(dm_requireModule("#1020558/LineToCategory"),
      'setAnswer, line, category, answer);
  }
}