!7

sclass NamedList {
  S name;
  L<S> lines;
}

module SomeObjects > DynObjectTable<NamedList> {
  L<NamedList> lists = synchroList();
  
  transient SingleComponentPanel scp;
  
  start {
    itemToMap = func(NamedList l) -> Map { litorderedmap("Name" := l.name, lines := l(l.lines)) };
    blub;
  }
  
  void blub { setData(lists); }
  
  visualize {
    ret jhsplit(withCenteredButtonsOnTop(super.visualize(),
      "Add" := rThread {
        inputText("Name of new list", voidfunc(S name) {
          lists.add(nu(NamedList, +name)); blub;
        });
      }
    ), scp = singleComponentPanel(jSection("Content")));
  }
}