<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_dm4mmt2mlp197e3dc55nv9gm0v, 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

concept AList {
  S name, comment;
  Int length; // if known
  long lastChanged;
  
  // All other fields are dynamic (in fieldValues).
}

sclass ListMaker > DynCRUD<AList> {
  bool voiceMode = true;
  
  *() { super(AList); }
  
  start {
    dm_onTopInput(voidfunc(S s) { if (voiceMode) reactToInput(s) });
  }
  
  void reactToInput(fS s) {
    switch to dm_q();
    if (matchEnd_vbar("new list", s))
      addDialog();
  }
  
  void addDialog enter {
    inputText("Name for new list", voidfunc(S name) {
      name = or2(name, "A list made on " + ymd_hms());
      cnew(AList, +name, lastChanged := now());
    });
  }
  
  visualize {
    ret northAndCenter(
      withMargin(dm_fieldCheckBox('voiceMode)),
      super.visualize());
  }
}