 ;; collection files
 
 
-(defn save-last-collection [name]
+(defn set-last-collection-name [name]
   (write-value-to-prefs prefs "last-collection" name))
 
-(defn load-last-collection []
+(defn get-last-collection-name []
   (or (read-value-from-prefs prefs "last-collection")
     (System/getProperty "user.name")))
 

(defn create-collection-menu-listener []
  (reify ItemListener
    (itemStateChanged [_ e]
      (println e)
      (let [item (.getItem e)]
        (if (= (.getStateChange e) ItemEvent/SELECTED)
          (condp = item
            "New..." (new-data-and-settings)
            (load-data-and-settings item))
          (save-data-and-settings item))))))

(defn create-browser []
  (let [frame (JFrame. "Micro-Manager Data Set Browser")

      (.. getColumnModel (getColumn 0) (setMaxWidth 20)))
    table))

(defn update-collection-menu [name]
  (let [menu (@browser :collection-menu)
        names (sort (keys @collections))
        listeners (.getItemListeners menu)]
