!7

sclass DialogTree > DynModule {
  new Node root;

  sclass Node {
    LS text;
    new LinkedHashMap<LS, Node> children;
    
    *() {}
    *(LS *text) {}
    
    toString {
      ret text == null ? "<ROOT>" : joinWithComma(text);
    }
    
    Node getOrCreate(LS text) {
      Node n = children.get(text);
      if (n == null) children.put(text, new Node(text));
      ret n;
    }
  }
  
  JComponent visualize() {
    ret jDynTree(root, func(Node n) -> L<Node> {
      values(n.children)
    });
  }
  
  void addCatLogToRoot {
    temp enter();
    for (LS text : catLog_wordLists())
      root.getOrCreate(text);
  }
}