 
 (def widgets (atom nil))
 
-(declare update-presets-table)
-(declare update-groups-table)
-
-
 (defn get-selected-group []
   (let [row (.getSelectedRow (@widgets :groups-table))]
     (when (<= 0 row)
       (nth @groups row))))
-  
 
-;; editing groups
-
-(defn add-group [components group]
-  (core defineConfigGroup group)
- ; (update-groups-table (:groups-table components))
-  )
-
-(defn rename-group [components group-old group-new]
-  (core renameConfigGroup group-old group-new)
-  ;(update-groups-table (:groups-table components))
-  )
-
-(defn delete-group [components group]
-  (core deleteConfigGroup group)
-  ;(update-groups-table (:groups-table components))
-  )
-
-;; editing presets
-
-(defn add-property [group]
-  )
-
-(defn remove-property [group property])
-
-(defn add-preset [components group preset]
-  (core defineConfig group preset)
-  (update-presets-table components group))
-
-(defn rename-preset [components group preset-old preset-new]
-  (core renameConfig group preset-old preset-new)
-  (update-presets-table components group))
-
-(defn delete-preset [components group preset]
-  (core deleteConfig group preset)
-  (update-presets-table components group))
-
-(defn set-preset-value [components group preset property value]
-  ; TODO: make this work.
-  )
-
-;; swing layout
+;; swing layout 
 
 (defn put-constraint [comp1 edge1 comp2 edge2 dist]
   (let [edges {:n SpringLayout/NORTH

              (into (sorted-map)
                    (map #(vector % (get-config group %))
                         (presets group))))))

(def groups (atom nil))

(defn update-groups []
  (reset! groups (seq (core getAvailableConfigGroups)))

              (try
                (f (.getSelectedRow table))
                (catch Exception e (.printStackTrace e)))))))))

(defn group-table-model []
  (proxy [AbstractTableModel] []
