     (if (not= conn-data nil)
       (let [name (conn-data "name")
             new-connections (stor/delete-connection! name)
-            old-conn-list-table (select frame [:#conn-list-table])
-            new-conn-list-table (build-connection-list-table new-connections)]
-        (replace! (.getParent old-conn-list-table) old-conn-list-table new-conn-list-table)))))
+            conn-list-table (select frame [:#conn-list-table])]
+        (config! conn-list-table :model (build-connection-list-model new-connections))))))
 
 
 (defn on-btn-connect-click

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





(defn on-btn-add-click
  "Add connection button, conn list frame."
  [e]
  (let [add-connection-win (build-add-connection-ui (to-root e))]
    (show! add-connection-win)
  )
)
