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

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



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