abstract sclass DynDialogWithUser > DynModule {
  L<DialogItem> dialog = synchroList();
  S input;
  
  transient JTextArea taDialog;
  transient JTextField tfInput;
  transient L onUserInput;

  sclass DialogItem {
    S author, line;
    long timestamp = now();
    
    toString { ret "[" + localTimeWithSeconds(timestamp) + "] " + author + ": " + line; }
  }
  
  visualize {
    tfInput = dm_fieldTextField('input);
    onEnter(tfInput, rThread sendInput);
    ret centerAndSouthWithMargins(
      jSection("Dialog", taDialog = setDisabledTextColor(Color.black, makeUneditable(jLiveValueWordWrapTypeWriterTextArea_autoScroll(
      dm_calculatedLiveValue(S, func -> S { dialogToString() }))))),
      withLabel("Your input:", tfInput));
  }
  
  void sendInput {
    S input = this.input;
    addLine('User, input);
    selectAll(tfInput);
    pcallFAll(onUserInput, input);
  }
  
  void onUserInput(VF1<S> r) {
    onUserInput = createOrAddToSyncList(onUserInput, r);
  }

  // API
  
  S dialogToString() {
    ret lines_rtrim(allToString(cloneList(dialog)));
  }
  
  void addLine(S author, S line) {
    dialog.add(nu(DialogItem.class, +author, +line));
    change();
  }
}