!7

sclass TaskBar extends DynSCP {
  transient SimpleLiveValue<S> lvInvisible = stringLiveValue();

  JComponent visualize2() {
    ret centerAndEast(hgrid(makeButtons()), withLeftAndRightMargin(6, 3, onLeftClick(jLiveValueLabel(lvInvisible), r dm_showInvisibleModulesList)));
  }
  
  void enhanceFrame(Container f) {
    super.enhanceFrame(f);
    addTitlePopupMenuItem(f, "Place on bottom", rThread placeOnBottom);
  }
  
  void placeOnBottom {
    Container frame = dm_frame();
    Rectangle desktop = getBounds(dm_desktopPane());
    if (frame != null && desktop != null) {
      packInternalFrameVertically_noFix((JInternalFrame) frame);
      Rectangle me = getBounds(frame);
      dm_setBounds(dm_current(), 0, desktop.height-me.height,   
        desktop.width, me.height);
    }
  }
 
  void update { revisualize2(); }
  
  L<JButton> makeButtons() {
    new L<JButton> out;
    new L invisible;
    L modules = dm_listModules();
    // TODO: get module names all at once
    for (fO m : modules)
      if (m != this)
        if (dm_isVisible(m)) {
          final WeakReference ref = new(m); // allow GC for modules
          out.add(jbutton(dm_moduleName(m), r { dm_showModule(ref!) }));
        } else invisible.add(m);
    lvInvisible.set(empty(invisible) ? "" : "+ " + l(invisible) + " invisible");

    ret out;
  }
}

Began life as a copy of #1016123