sclass JChatConvo extends SingleComponentPanel {
  JAutoWidthHTMLLabel label;
  L<Post> posts = synchroList();
  
  *() {
    setComponent(withMargin(label = swing(() ->
      jAutoWidthHTMLLabel(lambda0 makeContents))));
  }
  
  srecord Post(S html, bool right) {}
  
  selfType addPost(S html, bool right) {
    posts.add(new Post(html, right));
    update();
    this;
  }
  
  void update {
    label.update();
  }
  
  S makeContents() {
    ret htmlForJLabel_chatConvo(cloneMap(posts, p -> pair(p.html, p.right)));
  }
}