               (try
                 (f (.getSelectedRow table))
                 (catch Exception e (.printStackTrace e)))))))))
-
-(defn populate-list [list data]
-  (let [model (.getModel list)]
-    (.clear model)
-    (doseq [datum data]
-      (.addElement model datum)))
-  list)
-
-(defn handle-group-text-changed [e]
-  (println (.getText (.getComponent (.getSource e)))))
-
-(defn allow-group-renaming [table]
-  (.. table
-      (getDefaultEditor String)
-      (addCellEditorListener
-        (reify CellEditorListener 
-          (editingStopped [this e]
-            (handle-group-text-changed e))))))
 
 (defn group-table-model []
   (proxy [AbstractTableModel] []

  (let [[dev prop] prop-vec]
    (str dev "-" prop)))

(defn table []
  (let [table (JTable.)]
    (doto table
      )))

(defn scroll-pane [table]
   (let [sp (JScrollPane. table)]
    sp))

(defn attach-selection-listener [table f]
  (-> table .getSelectionModel
      (.addListSelectionListener

(defn show []
  (let [f (JFrame. "Micro-Manager Configuration Preset Editor")
        cp (.getContentPane f)
        groups-table (JTable.)
        presets-table (JTable.)
        preset-names-table (JTable.)
        groups-sp (scroll-pane groups-table)
        presets-sp (scroll-pane presets-table)
        ]
