!7

cmodule ScreenShootClosestModule > DynImageSurface {
  S moduleIDAndName;
  switchable bool withFrame = true;
  
  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;
    setImage(dm_shootModule(module, withFrame));
    dm_showModule();
  }
}