; @Dataset(label="Classification",description="Image of classification labels") class-img
; @File(label="Open existing ROIs", style="open") input-filename
; @File(label="Save to ROI filename", style="save") output-filename

(ns lymphatic-junctions.scripts.roi-inclusion)

(refer 'user)

(let [gd (ij.gui.NonBlockingGenericDialog. "ROI exclusion")
      rm (ij.plugin.frame.RoiManager/getRoiManager)]
  (.runCommand rm "Open" (.getAbsolutePath input-filename))
  ()
     (.enableYesNoCancel gd "Done" "Quit")
     (.showDialog gd)
     (ij.IJ/setTool "freehand")
     (loop []
           (when-not (or (.wasCanceled gd)
                         (.wasOKed gd))
            (Thread/sleep 20)))
     (.runCommand rm "Save" (if (.endsWith (.getAbsolutePath output-filename) ".zip")
                              (.getAbsolutePath output-filename)
                              (str (.getAbsolutePath output-filename) ".zip"))))