                                                                           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))
 

    (create-worksheet! conn-data)))


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

            :model [:columns [:name :desc :class]
                    :rows (map build-connection-list-item connections)])]
    t))


(defn on-btn-add-connection-cancel
