       (.enableLiveMode gui true))))
 
 (defn new-dll-name
+  "Get the name of the new dll file that will be created in the
+   MM application directory."
   [dll]
   (let [name (.getName dll)]
     (if (JavaUtils/isWindows)

  "Takes list of state labels for a state device
   and applies these labels."
  [dev labels]
  ;(println dev labels)
  (dotimes [i (count labels)]
      (core defineStateLabel dev i (get labels i))))


(def dll-directory-type (FileDialogs$FileType. "DLL Directory" "New DLL location" "" false nil))

(defn choose-dll-dir
  "Presents user with a dialog for choosing the directory from which DLLs will be reloaded."
  []
  (FileDialogs/openDir nil "Please choose a directory where new DLLs will appear"
                       dll-directory-type))
