     (future
       (while @keep-following
         (Thread/sleep 500)
-        (reset! date-atom (file-dates path))))
+        (when-not (.isAcquisitionRunning gui)
+          (reset! date-atom (file-dates path)))))
     #(reset! keep-following false)))
       
 (defn watch-dates

(defn module-for-dll
  "Finds the module name for a dll path."
  [dll]
  (-> dll
      file .getName (.split "\\.")
      first (.replace "mmgr_dal_" "")))

(defonce 
  status-frame

(defn test-unload []
  (core unloadLibrary test-lib))

;(def test-file (file default-directory "mmgr_dal_DemoCamera.dll"))
