            obj-rows        (ref (conj (zipmap compatible-obj obj-range)
                                   (zipmap obj-range compatible-obj)))
 
-           write-obj-to-table 
-           (fn-doc "Writes the objects of the context to the table-widget.
-
-  Parameters:
-    widget   _table widget to write the object cell values to"
-             [widget]
-             nil)
 
            extend-rows-hook
            (fn-doc "This hook is called when the number of rows is extended by

             []
             (let [ widgets @assoc-widgets
                    tables  (map :table widgets)]
               (one-by-one tables fill-table-widget)))

           :remove-widget-
           (fn-doc "Removes a widget from associated widgets.

   (make-editable-context (make-context [] [] []))))

(def ctx (conexp.fca/make-context ["a" "b" "c"] [1 2 3] [["a" 1] ["c" 3]]))
(def ctx2 (make-context #{"Apfel" "Birne" "Möhre" "Gurke"} 
            #{"lecker" "geht so" "iieh"} 
            #{["Apfel" "lecker"] ["Birne" "lecker"] ["Möhre" "iieh"]
            ["Gurke" "geht so"]}))

(def ectx (make-editable-context ctx))


