!7

module LinuxWindowList > DynObjectTable<wmctrl_Entry> {
  start {
    if (!isLinux())
      ret with setModuleName("Sorry, wrong OS - LINUX Window List");
      
    defaultAction = voidfunc(wmctrl_Entry e) { wmctrl_activateWindow(e) };
    doEvery(0.0, 10.0, r updateMe);
  }
  
  afterVisualize {
    popupMenuItem_top("Close window", r { wmctrl_closeWindow(selected()) });
    popupMenuItem_top("Switch to window", defaultAction);
  }
  
  void update {
    S output = backtickAndPrintTime("wmctrl -lpG");
    setData(linux_parse_wmctrl_lpG_output(output));
  }
}