!7

concept Definition {
  S word, definition;
}

module QuestionsAndAnswers > DynCRUD<Definition> {
  *() { super(Definition); }
  
  afterVisualize {
    replaceComponent(crud.tableSearcher.tfInput, func(JComponent c) -> JComponent {
      centerAndEastWithMargin(c, jbutton("Define...", rThread {
        define(searchTerm())
      }))
    });
    onEnter(crud.tableSearcher.tfInput, rThread { define(searchTerm()) }); }
  }
  
  void define(fS term) enter {
    final JTextField tfWord = jtextfield(or2(term, dm_topInput())), tfDefinition = jtextfield();
    showFormTitled("Add Definition",
      "Word/Phrase:", tfWord,
      "Definition:", tfDefinition,
      rThread {
        S word = gtt(tfWord), definition = gtt(tfDefinition);
        uniq_sync(Definition, +word, +definition);
      });
    focus(nempty(term) ? tfDefinition : tfWord);
  }
}