 (defn redraw-data []
   (update-group-data)
   (let [preset-names-table (@widgets :preset-names-table)
-        presets-table (@widgets :presets-table)]
+        presets-table (@widgets :presets-table)
+        used-properties-table (@widgets :used-properties-table)]
     (update-table preset-names-table)
-         (cancel-cell-editing preset-names-table)
-         (cancel-cell-editing presets-table)
-         (update-table presets-table)
-         (set-preferred-column-width presets-table)))
+    (update-table used-properties-table)
+    (cancel-cell-editing preset-names-table)
+    (cancel-cell-editing presets-table)
+    (update-table presets-table)
+    (set-preferred-column-width presets-table)))
 
 (defn new-group-name []
   (loop [index 1]

      (.setAutoResizeMode presets-table JTable/AUTO_RESIZE_OFF)
      (doto cp
        (.setLayout (SpringLayout.))
        (add-component groups-sp :n 5 :w 5 :n 150 :w 150)
        (add-component use-properties-sp :n 5 :w 155 :n 150 :w 500)
        (add-component presets-sp :n 155 :w 5 :s -5 :e -5))
        (.setBounds f 100 100 800 500)
        (.show f))
    (.setCellEditor groups-table (group-table-cell-editor))
    {:frame f
     :groups-table groups-table


(defn update-groups []
  (reset! groups (vec (seq (core getAvailableConfigGroups))))
  (redraw-data)
  (update-all-properties)
  (-> @widgets :groups-table update-table)
  @group-data)

