!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_getModule(firstIntAsString(moduleIDAndName));     
    if (module == null) ret;
    setImage(renderComponentToImage(dm_frame(module)));
  }
}