<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_fbc56vsdktu1dhmnrbera59363, 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 />
!7

sclass Tab { S name, moduleID; }

compact module Tabs {
  transient NotifyingList<Tab> tabs;
  transient JComponent grid;
  S libID = "#1016118/SFEditor";
  int gapBelow = 0;
  
  start {
    tabs = notifyingList(r change + r updateTabs);
    dm_vmBus_onMessage_q('moduleStarted, voidfunc(S moduleID) { addTabForModule(moduleID) });
    dm_vmBus_onMessage_q('deletingModule, voidfunc(O module) { removeTabForModule(dm_moduleID(module)) });
    dm_vmBus_onMessage_q('moduleNameChange, voidfunc(O module, S oldName, S newName) { updateTabForModule(dm_moduleID(module)) });
    dm_q(r { for (S moduleID : dm_listModuleIDs()) addTabForModule(moduleID) });
    dm_vmBus_onMessage_q('newActiveModule, vf<O> selectModule);
  }

  visualize {
    grid = hgridWithSpacing(); updateTabs();
    ret withButtonsAbove(withMargin(6, 6, 12, 6, grid), "+", rThread dm_newEditor);
  }
  
  void updateTabs q {
    if (grid == null) ret;
    replaceComponentsOfHGrid(grid, map(cloneList(tabs), func(final Tab tab) -> JComponent {
      onLeftClick(setOpaqueBackground(toColor("E0E0E0"), jcenteredlabel(tab.name)), r { showModule(tab.moduleID) })
    }));
    selectModule(dm_activeModule());
  }

  void addTabForModule(S moduleID) {
    if (eq(dm_moduleLibID(moduleID), libID) && !containsWhere(tabs, +moduleID)) {
      tabs.add(nu(Tab, name := moduleName(moduleID), +moduleID));
      if (dm_isVisible(moduleID)) placeUnderMe(moduleID);
    }
  }
  
  void removeTabForModule(S moduleID) {
    removeWhere(tabs, +moduleID);
  }
  
  void updateTabForModule(S moduleID) {
    Tab tab = firstWhere(tabs, +moduleID);
    if (tab == null) ret;
    tab.name = moduleName(moduleID);
    tabs.change();
  }
  
  S moduleName(O module) {
    ret dropPrefix("Editing: ", dm_moduleName(module));
  }
  
  void selectModule(O module) {
    if (module == null || dm_isMe(module) || !dm_isVisible()) ret;
    int idx = indexOfWhere(tabs, moduleID := dm_moduleID(module));
    for i over tabs: {
      JComponent c = cast getComponentAtIndex(grid, i);
      if (i == idx) makeBold(c); else makeNonBold(c);
    }
  }
  
  void showModule(O module) {
    dm_showModule(module);
    placeUnderMe(module);
  }
  
  void placeUnderMe(O module) {
    if (!dm_isVisible()) ret;
    Rect r = dm_bounds(module), me = dm_bounds();
    dm_setBounds(module, me.x, me.y2()+gapBelow, me.w, r.h);
  }
}