!7

// class name not up to date anymore
cmodule ScreenShootClosestModule > DynImageSurface {
  S moduleIDAndName;
  switchable bool withFrame = true;
  
  visual withCenteredButtons(northAndCenterWithMargins(
    withCenteredTitle("Module to shoot:",
      dm_moduleSelectorComboBox(dm_fieldLiveValue('moduleIDAndName))),
    super),
    dm_checkBox withFrame(), "Shoot!", rThread doIt);

  void doIt enter {
    fO module = dm_getModuleFromComboBox(moduleIDAndName);     
    if (module == null) ret;
    setImage(dm_shootModule(module, withFrame));
    dm_showModule();
  }

  start {
    dm_onAnyModulePopupMenu(voidfunc(JPopupMenu menu, S mod) enter {
      addMenuItem(menu, "Take screenshot of module", rThread {
        // TODO: select in combobox
        setImage(dm_shootModule(mod, withFrame));
        dm_showModule();
      });
    });
  }
}