!7

sclass TaskBar extends DynSCP {
  transient Bool vertical;
  transient L<L> status;
  transient L<JButton> buttons;

  start {
    doEvery(0.0, 10.0, r revisualize2);
  }
  
  bool shouldBeVertical() {
    Rect r = dm_getBounds();
    ret r != null && r.h > r.w*0.3;
  }

  JComponent visualize2() {
    temp enter();
    if (vertical == null) vertical = shouldBeVertical();
    if (!makeButtons() && getComponent() != null) ret getComponent();
    ret vertical
      ? jscroll_dynamicvstack(withRightMargin(6, dynamicVStack2((L<JComponent>) (L) buttons, )))
      : hgrid(buttons);
  }
  
  enhanceFrame {
    addTitlePopupMenuItems(f,
      "Place on bottom", rThread placeOnBottom,
      "Place on the right", rThread placeOnRight);
    onResize(f, r {
      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(); }

  // returns true if change
  bool makeButtons() {
    L<wmctrl_Entry> list = [wmctrl_Entry e : linux_wmctrl_list() | e.desktopNumber >= 0];
    L status = ll(vertical, list); // TODO: less fields
    if (eq(status, this.status)) false;
    this.status = status;
    print("Linux Task Bar: Making new buttons");
    
    new L<JButton> out;
    L<Pair<S, VF1<wmctrl_Entry>>> menuItems = (L) ll(pair("Close window", voidfunc(wmctrl_Entry e) { wmctrl_closeWindow(e) }));
    
    for (final wmctrl_Entry e : list) {
      JButton btn = jbutton(e.windowTitle, r { wmctrl_activateWindow(e) });
      for (final Pair<S, VF1<wmctrl_Entry>> p : menuItems)
        componentPopupMenuItem(btn, p.a, rThread { callF(p.b, e) });
      out.add(btn);
    }

    buttons = out;
    true;
  }
}

Began life as a copy of #1018410