!7

sclass TaskBar extends DynSCP {
  transient SimpleLiveValue<S> lvInvisible = stringLiveValue();
  transient Bool vertical;
  transient ReliableSingleThread rst = dm_rstWithPostDelay(this, 1.0, r revisualize2);
  transient L<L> status;
  transient L<JButton> buttons;
  bool sortByName = true;
  
  start {
    if (dm_getBounds() == null) placeOnRight();
    //DynSCP.verbose = true;
    ownResource(vmBus_onMessages(vmBus_modulesListChangeMessages(), rst));
  }
  
  bool shouldBeVertical() {
    Rect r = dm_getBounds();
    ret r != null && r.h > r.w*0.3;
  }

  JComponent visualize2() {
    temp enter();
    if (vertical == null) vertical = shouldBeVertical();
    time "makeButtons" {
      bool mb = makeButtons();
    }
    if (!mb && getComponent() != null) ret getComponent();
    JLabel lblInvisible = onLeftClick(jLiveValueLabel(lvInvisible), r dm_showInvisibleModulesList);
    ret vertical
      ? jscroll_dynamicvstack(withRightMargin(6, dynamicVStack2(listPlusInBeginning(
        (L<JComponent>) (L) buttons, withMargin(6, lblInvisible)))))
      : centerAndEast(hgrid(buttons), withLeftAndRightMargin(6, 3, lblInvisible));
  }
  
  void enhanceFrame(final Container f) {
    super.enhanceFrame(f);
    addTitlePopupMenuItems(f,
      "Place on bottom", rThread placeOnBottom,
      "Place on the right", rThread placeOnRight);
    onResize(f, r {
      //print("onResize " + jGetSize(f));
      if (vertical == shouldBeVertical()) ret;
      vertical = shouldBeVertical();
      revisualize2();
    });
  }
  
  void placeOnBottom {
    temp enter();
    if (!isFalse(vertical)) { vertical = false; revisualize2_impl(); } // for height calculation
    dm_placeOnBottom();
  }
  
  void placeOnRight { temp enter(); dm_placeOnRight(); }
  void update { /*printStackTrace();*/ rst.trigger(); }

  // returns true if change
  bool makeButtons() {
    Pair<L> p = dm_visibleAndInvisibleModules();
    LS namesVis = map dm_moduleName(p.a);
    final Map<O, S> namesMap = zipTwoListsToMap(p.a, namesVis);
    L vis = p.a;
    if (sortByName) {
      vis = sortedByMapLookupCI(vis, namesMap);
      //print("Sorted by map: " + namesMap);
    }
    LS namesInvis = map dm_moduleName(p.b);
    L status = ll(vertical, map dm_moduleID(vis), map dm_moduleID(p.b), map(vis, func(O mod) -> S { namesMap.get(mod) }), l(namesInvis));
    if (eq(status, this.status)) false;
    this.status = status;
    print("Task bar: Making new buttons");
    
    new L<JButton> out;
    L modules = dm_listModules();
    L<Pair<S, VF1<O>>> moduleItems = dm_moduleMenuItems();
    for (int i = 0; i < l(vis); i++)
      if (vis.get(i) != this) {
        final WeakReference ref = new(vis.get(i)); // allow GC for modules
        JButton btn = jbutton(namesMap.get(vis.get(i)), r { dm_showModule(ref!) });
        for (final Pair<S, VF1<O>> p2 : moduleItems)
          componentPopupMenuItem(btn,
            p2.a, rThread { O mod = ref!; if (mod != null) callF(p2.b, ref!) });
        out.add(btn);
      }
    lvInvisible.set(empty(p.b) ? "" : "+ " + l(p.b) + " invisible");

    buttons = out;
    true;
  }
}