!7

cm TaskBar_dev > DynObjectTable<S> {
  S showWhat = "All modules";
  transient JLabel lblCount;
  
  start {
    dontPersist();
    defaultAction = voidfunc(S id) { dm_showModule(id) };
    itemToMap = itemToMap_calcSingleColumn("Module", func(O mod) -> S { or2(dm_moduleName(mod), "[...]") });
    ownResource(vmBus_onModulesListChange(rstUpdate()));
    rstUpdate().trigger();
    if (dm_bounds() == null) placeOnRight();
    onListChanged = syncListInitAndAdd(onListChanged, r { setText(lblCount, countText()) });
  }
  
  void update {
    data = null; // force update
    LS ids = containsWord(showWhat, "visible") ? dm_visibleModuleIDs()
      : containsWord(showWhat, "invisible") ? dm_invisibleModuleIDs()
      : dm_moduleIDs();
    setData(sortedByCalculatedFieldIC(func(O m) -> S { or2(dm_moduleName(m), unicodeCharacterLastInSortOrder()) }, ids));
  }
  
  visualize {
    JComponent theTable = super.visualize();
    
    // TODO: filter these
    for (final Pair<S, VF1<O>> p : dm_moduleMenuItems())
      tablePopupMenuItem(table,
        p.a, voidfunc(final int row) { thread { callF(p.b, _get(data, row)); } });
        
    tablePopupMenu(table, voidfunc(JPopupMenu menu, int row) {
      O mod = _get(data, row);
      Container frame = dm_frame(mod);
      if (frame cast JInternalFrame) {
        copyInternalFramePopupMenu(menu, frame);
        var titlePane = internalFrameTitleComponent(frame);
        if (titlePane != null)
          vmBus_send showingPopupMenu(titlePane, menu);
      } else {
        // TODO: get all the items even if module is not showing
        addMenuItem(menu, "ID: " + or(dm_moduleID(mod), mod) + "/" + dm_moduleLibID(mod), null);
      }
    });
    onCharDown(table, voidfunc(char c) {
      LS names = map dm_moduleName(data);
      int cur = selectedIndex();
      int i = swic(_get(names, cur+1), str(c))
        ? cur+1 // move through items with that characters
        : indexOfStartingWithIC(names, str(c));
      selectRowIfNotNegative(table, i);
    });
    
    ret northAndCenter(
      withMargin(westAndEast(
        lblCount = jlabel(countText()),
        dm_fieldComboBox('showWhat, ll("All modules", "Visible modules", "Invisible modules")))),
      theTable);
  }
  
  enhanceFrame {
    addTitlePopupMenuItems(f, "Place on the right", rThread placeOnRight);
  }
  
  void placeOnRight enter { dm_placeOnRight(); }

  S countText() {
    ret join(" of ", litorderedset(count(), dm_moduleCount()));
  }
}