!7

cmodule ScreenShootClosestModule > DynImageSurface {
  S moduleIDAndName;
  
  visual withCenteredButtons(northAndCenterWithMargins(
    withCenteredTitle("Module to shoot:",
      dm_moduleSelectorComboBox(dm_fieldLiveValue('moduleIDAndName))),
    super),
    "Shoot!", rThread doIt);

  void doIt enter {
    fO module = dm_getModuleFromComboBox(moduleIDAndName);     
    if (module == null) ret;
    dm_showModule(module);
    setImage(renderComponentToImage(dm_frame(module)));
    dm_showModule();
  }
}