   Parameters:
      ectx       _editable-context
      given      _current attribute name or column index
-     requested  _requested new attribute name")
-
-(defmethod change-attribute-name ::editable-context
+     requested  _requested new attribute name"
   [ectx given requested]
   (let [ att-cols @(:attr-cols ectx) ]
     (if (= (type given) String)

         fltr (rho filter (fn [x] (when-not (nil? x) x))) ]
    (set (fltr (map (*comp view names) sel)))))

(inherit-multimethod get-selected-attributes ::context-editor-widget
  "Returns the set of selected attributes in the context-editor-widget.

  Parameters:
    widget  _context-editor-widget")

(defmethod get-selected-attributes ::context-editor-widget
  [widget]
  (let [ table (get-table widget) 
         view (get-column-index-permutator table)

    (set-hook table "cell-value" 
      (fn [r c s] (ectx-cell-value-hook e-ctx r c s)))))

(defn-typecheck set-context ::editable-context
  "Sets the bound fca-context of an editable context object to ctx.

   Parameters:
    ectx   _editable-context object
    ctx    _new context"
  [ectx ctx]
  (let [ new (make-editable-context ctx)
         widgets @(:widgets ectx) ]
