!7

sclass DevelopFromExamples > DynModule {
  new L<Example> examples;
  
  class Example {
    S question, answer;
    
    *() {}
    *(S *question, S *answer) {}
    
    toString {
      ret question + " -> " + answer;
    }
  }
  
  transient JList examplesList;
  
  JComponent visualize() {
    ret withCenteredButtons(
      jLiveValueList(dm_fieldLiveValue('examples)),
      "Add example...", rThread addExampleDialog);
  }
  
  void addExampleDialog {
    final JTextField tfQuestion = jtextfield();
    final JTextField tfAnswer = jtextfield("?");
    showFormTitled("Add example",
      "Question:", tfQuestion,
      "Answer (if known):", tfAnswer,
      r {
        setField(examples := listPlus(examples, new Example(gtt(tfQuestion), gtt(tfAnswer))));
      });
  }
}