   2. Replace connections list in parent frame.
   3. Close add connection dialog."
   [conn-list-frame e]
-  (println "conn-list-frame" conn-list-frame)
   (let [
         root (to-root e)
         conn-name (value (select root [:#name]))



(defn on-btn-add-click
  [e]
  (let [
        add-connection-win (build-add-connection-ui (to-root e))]
    (show! add-connection-win)
  )
)

                                        :items [
                                                (scrollable (build-connection-list-table connections))
                                                (horizontal-panel :border 4
                                                                  :items [btn-add
                                                                          btn-delete
                                                                          btn-connect])])
               :on-close :exit)]
