!7

cm DaWindows > DynObjectTable<Window> {
  start {
    dontPersist();
    itemToMap = func(Window w) -> Map {
      litorderedmap("Window" := str(w))
    };
    dm_doEveryAndNow(2.0, r actualUpdate);
  }
  
  void actualUpdate enter {
    setData(allWindowsNotFrames());
  }

  afterVisualize {
    popupMenuItem_top("Close", voidfunc(Window w) {
      disposeWindow(w);
    });
  }
}

Began life as a copy of #1027695