 
 (declare make-editable-context editable-context?)
 
-
 (defn-swing make-context-editor-widget
   "Creates a control for editing contexts.
 

(defmethod get-table ::context-editor-widget
  [widget]
  (:table widget))

(defn-swing do-mk-context-editor-widget
  "Creates a control for editing contexts.

    (doseq [a att o obj] (set-value-at-index table (obj-rows o) (att-cols a)
                           (get-cross o a)))
    (set-value-at-index table 0 0 "⇊objects⇊")
    (set-hook table "cell-value" 
      (fn [r c s] (ectx-cell-value-hook e-ctx editor r c s)))))

                   


