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

    (create-worksheet! conn-data)))


(defn create-login-ui
  "Create login window.
  Parameters:

                                                                          btn-connect])])
               :on-close :exit)]
    (listen btn-connect :action (partial on-btn-connect-click frame (:create-worksheet handlers)))
    (set-conn-list-frame-bindings! frame)
    frame))

