<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_dmh8s4tcograuan6s3j7nshunf, 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 AIConcept {
  S globalID = aGlobalID();
  S name;
  S comment;
}

static JTable table;

p-substance {
  conceptsAndBot();
  table = showConceptsTable("Your A. I. Concepts", AIConcept, func(AIConcept c) {
    litorderedmap("Concept ID" := c.globalID, "Short Name" := c.name, "Comments" := c.comment)
  });
  addToWindow(table, jRightAlignedLine(
    jbutton("Add...", f newConcept)));
    
  tablePopupMenu(table, voidfunc(JPopupMenu menu, final int row) {
    addMenuItem(menu, "Edit...", r {
      final S globalID = (S) getTableCell(table, row, 0);
      editConcept(findConcept(AIConcept, +globalID));
    });
    addMenuItem(menu, "Delete", r {
      final S globalID = (S) getTableCell(table, row, 0);
      withDBLock(r { deleteConceptsWhere(AIConcept, +globalID) });
    });
  });
}

svoid editConcept(final AIConcept c) {
  if (c == null) ret;
  final JTextField a = jTextField(c.name);
  final JTextField b = jTextField(c.comment);
  final JTextField cc = jTextField(c.globalID);
  Runnable r = r {
    cset(c,
      name := getTextTrim(a), comment := getTextTrim(b),
      globalID := getTextTrim(cc))
  };
  showFormTitled("Edit concept " + c.globalID,
    "Name", a,
    "Comment", b,
    "Global ID", cc, r);
}

svoid newConcept {
  final new JTextField a;
  final JTextField b = jTextField();
  final JTextField c = jTextField(aGlobalID());
  Runnable r = r {
    cnew(AIConcept, name := getTextTrim(a), comment := getTextTrim(b), globalID := getTextTrim(c))
  };
  showFormTitled("New concept",
    "Name", a,
    "Comment", b,
    "Global ID", c, r);
}