             :model [:columns [:name :desc :class]
                     :rows (map build-connection-list-item connections)])]
     t))
-  
 
 
 (defn on-btn-add-connection-cancel

(ns sqls.ui
  "Deal with UI"
  (:use seesaw.core)
  (:require [sqls.stor :as stor])
  (:require seesaw.table)
  (:require sqls.ui.worksheet))

  (println "settings" settings)
  (println "connections" connections)
  (let [btn-add (button :id :btn-new :text "Add" :listen [:action on-btn-add-click])
        btn-delete (button :id :btn-delete :text "Delete" :enabled? false :listen [:action on-btn-delete-click])
        btn-connect (button :id :btn-connect :text "Connect" :enabled? false)
        frame (frame :title "SQLS"
               :content (vertical-panel :id :panel
                                        :border 4
