!7

cmodule SmartParser > DynTextArea {
  transient SingleComponentPanel scp;
  transient LS parsed;
  
  visual jvsplit(super, jCenteredSection("Parsed", scp = singleComponentPanel(makeComponent())));
  
  start {
    dm_watchFieldAndNow text(r parse);
  }
  
  void parse {
    setField(parsed := smartParser1_generic(text));
    if (scp != null)
      scp.setComponent(makeComponent());
  }
  
  JComponent makeComponent() {
    ret jscroll(setRootVisible(false, jDynamicTree(parsed, o -> optCast Cl(o), makeChildrenIsFast := true)));
  }
}