     (isCellEditable [_ _] true)
     (getValueAt [row column] (nth (keys @group-data) row))
     (setValueAt [val row column]
+                (println old-val val row column)
       (let [old-val (.getValueAt this row column)]
         (core renameConfig (get-selected-group) old-val val)
         (update-group-data)))))

    (getValueAt [row column] (get (nth (vals @group-data) row)
                                  (nth (properties @group-data) column)))
    (setValueAt [val row column]
      ;(let [old-val (.getValueAt this row column)]
        ;TODO: finish
        )))


(def widgets (atom nil))

(defn get-selected-group []
  (let [row (.getSelectedRow (@widgets :groups-table))
        groups @groups]
    (when (< -1 row (count groups))
      (nth groups row))))


(defn update-group-data []
