     (.setLayout panel (SpringLayout.))
     (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 200 :n 28 :w 305
+                         settings-button :n 5 :w 405 :n 28 :w 510
                          search-label :n 5 :w 5 :n 28 :w 25
-                         collection-label :n 5 :w 310 :n 28 :w 380
-                         collection-menu :n 5 :w 380 :n 28 :w 525)
+                         collection-label :n 5 :w 205 :n 28 :w 275
+                         collection-menu :n 5 :w 275 :n 28 :w 405)
     (connect-search search-field table)
     (.setSortsOnUpdates (.getRowSorter table) true)
     (listen-to-open table)


;; collection files

(defn create-default-path []
  (str (System/getProperty "user.name") ".mmdb.txt"))

(defn new-collection []
  (File. (create-default-path)))

(defn read-collection-list []
  (read-value-from-prefs prefs "collection-files"))

(defn get-current-data-and-settings []
  (let [table (@browser :table)

           [javax.swing.table AbstractTableModel DefaultTableModel
                              TableColumn TableRowSorter]
           [javax.swing.event DocumentListener TableModelListener]
           [java.io BufferedReader File FileReader PrintWriter]
           [java.util Vector]
           [java.util.prefs Preferences]
           [java.awt Color Dimension Font Insets]
