!7

sclass ScreenShootClosestModule extends DynImageSurface {
  S moduleIDAndName;
  
  visualize {
    ret withCenteredButtons(northAndCenterWithMargins(
      withCenteredTitle("Module to shoot:",
        dm_moduleSelectorComboBox(dm_fieldLiveValue('moduleIDAndName))),
      super.visualize()),
      "Shoot!", rThread doIt);
  }
  
  void doIt enter {
    fO module = dm_getModuleFromComboBox(moduleIDAndName);     
    if (module == null) ret;
    dm_showModule(module);
    setImage(renderComponentToImage(dm_frame(module)));
  }
}