!7

sclass Tab { S name; }

compact module Tabs {
  new L<Tab> tabs_actual;
  transient L<Tab> tabs;
  transient JTabbedPane jtabs;
  
  start { tabs = notifyingList(tabs_actual, r change + r updateTabs); }

  visualize {
    jtabs = jtabs(); updateTabs();
    ret withButtonsAbove(jtabs, "+", rThread { inputText("Name for new tab", vf<S> addTab) });
  }
  
  void updateTabs q { fillJTabs(jtabs, syncCollect name(tabs)); }
  
  // API
  
  void addTab(S name) { tabs.add(nu(Tab, +name)); }
}