   (let [t (table
             :id :conn-list-table
             :preferred-size [480 :by 320]
-            :model [:columns [:name :desc :class]
-                    :rows (map build-connection-list-item connections)])]
+            :model (build-connection-list-model connections))]
     t))
 
 

                   "jdbc-conn-str" conn-jdbc-conn-str
                   "desc" conn-desc}
        new-connections (stor/add-connection! conn-data)
        old-conn-list-table (select conn-list-frame [:#conn-list-table])
        _ (println "old-conn-list-table" old-conn-list-table)
        new-conn-list-table (build-connection-list-table new-connections)
        _ (println "new-conn-list-table" new-conn-list-table)
        ]
    (replace! (.getParent old-conn-list-table) old-conn-list-table new-conn-list-table)
    ; (pack! conn-list-frame)
    (dispose! e)
    )
  )

  "Just close the dialog"
  [e]
  (dispose! e))


(defn set-conn-list-frame-bindings!
  [frame]
  (let [conn-list-table (select frame [:#conn-list-table])
        btn-connect (select frame [:#btn-connect])
        btn-delete (select frame [:#btn-delete])]
    (assert (not= conn-list-table nil))
    (assert (not= btn-connect nil))
    (assert (not= btn-delete nil))
    (b/bind
      (b/selection conn-list-table)
      (b/transform (fn [s] (not= s nil)))
      (b/property btn-connect :enabled?)
      (b/property btn-delete :enabled?))))  


(defn on-btn-add-connection-click
