     (constrain-to-parent scroll-pane :n 32 :w 5 :s -5 :e -5
                          search-field :n 5 :w 25 :n 28 :w 200
                          settings-button :n 5 :w 500 :n 28 :w 600
+                         open-in-ram-checkbox :n 5 :w 600 :n 28 :w 720
                          refresh-button :n 5 :w 405 :n 28 :w 500
                          search-label :n 5 :w 5 :n 28 :w 25
                          collection-label :n 5 :w 205 :n 28 :w 275

  (close-window (@settings-window :frame))
  true)

(defn create-browser []
  (let [frame (JFrame.)
        panel (.getContentPane frame)

  ;(MMImageCache/addImageCacheListener (create-image-storage-listener))
  (awt-event
    (.show (@browser :frame))
    (.setModel (:table @browser) (create-browser-table-model ["Loading..."]))
    (let [collection-name (get-last-collection-name)]
      (future (apply-data-and-settings collection-name (load-data-and-settings collection-name)))))
  browser)

(defn show-browser []
