!7

module SaveGoodResult {
  S moduleIDAndName, comment;
  
  visualize {
    ret withRightMargin(makeForm2(
      "Module", dm_moduleSelectorComboBox(dm_fieldLiveValue('moduleIDAndName)),
      "Comment", dm_fieldTextField('comment),
      "Save, rThread saveResult));
  }
  
  void saveResult enter {
    O mod = dm_getModule(firstIntAsString(moduleIDAndName));
    if (mod == null) ret;
    BufferedImage screenshot = dm_moduleScreenShot(mod);
    S fileName = uniqueImageFileName(screenshot);
    saveImage(screenshot);
  }
}