<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_9kina50pmb9u3e3im9mln3lk70, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
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 { dm_q(r updateTabs) }); }
  
  visualize {
    jtabs = jtabs();
    updateTabs();
    ret withLeftAlignedButtonsAbove(jtabs,
      "+", rThread { inputText("Name for new tab", voidfunc(S s) { addTab(s) }) });
  }
  
  void updateTabs {
    if (jtabs != null) fillJTabs(jtabs, collect name(tabs));
  }
  
  // API
  
  void addTab(S name) { tabs.add(nu(Tab, +name)); }
}