 ;;
 ;;
 
-(deftype context-editor [widget table toolbar e-ctx])
-(derive ::context-editor :conexp.gui.editors.util/widget)
+(deftype context-editor-widget [widget table toolbar e-ctx])
+(derive ::context-editor-widget :conexp.gui.editors.util/widget)
 
 (declare make-editable-context editable-context?)
 
 
-(defn-swing make-context-editor
+(defn-swing make-context-editor-widget
   "Creates a control for editing contexts.
 
   Parameters:

                                          (message-box (vec (first x)))))])
             left  workspace-tree

             right (do-mk-context-editor)
             right2 (do-mk-context-editor)
             right3 (make-table-control)
             rpane (make-split-pane :vert right right3
                     [set-divider-location 300])

                       (get-ui-icon "OptionPane.informationIcon")
                       [set-handler (fn [] (paste-from-clipboard table))] ) ])
         e-ctx (make-editable-context)
         widget (context-editor-widget root table toolbar e-ctx) ]
    (apply-exprs widget setup)
    (add e-ctx widget)
    widget))


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

  Parameters:
