          (.fireTableStructureChanged (.getModel (components :presets-table)))
          (set-preferred-column-width (components :presets-table)))))
 
-
 ;; test/run
 
 (defn start

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

;; main stuff


(defn link-table-row-selection [table1 table2]
  (attach-selection-listener table1 #(set-selected-row table2 %))
  (attach-selection-listener table2 #(set-selected-row table1 %)))

(defn double-click-for-new-row [table f]
  (attach-double-click-listener
    (.getParent table)
    (fn [x y]
      (let [r (.getBounds table)]
        (when (> y (+ (.y r) (.height r)))
          (f))))))

(defn show []
  (let [f (JFrame. "Micro-Manager Configuration Preset Editor")
