!7

cmodule ConvoPopup > DynModule {
  L<Post> posts = synchroList();
  int windowWidth = 400, windowHeight = 400;
  
  transient JChatConvo view;
  
  srecord Post(S html, bool right) {}
  
  // API
  
  void openPopup swing {
    if (view == null) {
      view = new JChatConvo;
      for (Post p : cloneList(posts))
        view.addPost(p.html, p.right);
      alwaysOnTop(showFrameInBottomRightCorner(view, windowWidth, windowHeight));
    } else
      activateFrame(view);
  }
  
  void addPost(S html, bool right) swing {
    posts.add(new Post(html, right));
    view.addPost(html, right);
  }
}