!7

abstract sclass DynConvo > DynModule {
  L<JChatConvo.Post> posts_raw = new L; // underlying list
  transient L<JChatConvo.Post> posts = dm_synchroList(this, posts_raw); // list with notify

  S userInput;
  
  transient JChatConvo view;
  
  Pt minimumSize() { ret pt(300, 300); }
  
  O[] menuItems() {
    ret litarray("Clear", rEnter clearPosts);
  }
  
  visualize {
    print("Have posts: " + posts);
    view = swing(() -> new JChatConvo);
    view.usePostsList(posts);
    ret centerAndSouth(
      jscroll_trackWidth(view),
      withMargin(bottomPart()));
  }
  
  JComponent bottomPart() {
    ret dm_textFieldAndSubmit userInput('sendInput, buttonText := "Send");
  }
  
  void sendInput {
    S s = trim(userInput);
    if (nempty(s)) {
      addPost(htmlEncode2(s), false);
      vmBus_send chatUserInput(module(), s);
      setField(userInput := "");
    }
  }
  
  // API
  
  void addPost(S html, bool right) swing {
    posts.add(new JChatConvo.Post(html, right));
    view?.updateAndScrollDown();
  }
  
  void clearPosts swing { posts.clear(); view?.updateAndScrollDown(); }
  
  void reply(S s) {
    if (empty(s = trim(s))) ret;
    addPost(htmlEncode2(s), true);
  }
}