                        (get-ui-icon "OptionPane.informationIcon")
                        [set-handler (fn [] (paste-from-clipboard table))] ) ])
          e-ctx (make-editable-context)
-         widget (context-editor root table toolbar e-ctx) ]
+         widget (context-editor-widget root table toolbar e-ctx) ]
     (apply-exprs widget setup)
     (add e-ctx widget)
     widget))
 
 
-(defn-swing do-mk-context-editor
+(defn-swing do-mk-context-editor-widget
   "Creates a control for editing contexts.
 
   Parameters:

             pane (make-split-pane :horiz left rpane
                    [set-divider-location 200]) 
             ]
        (do
          (add-tab-with-name-icon-tooltip frame (get-widget pane)
            "Contexts" nil "View and edit contexts")
          (dosync-wait 
            (ref-set context-workspace-tree workspace-tree)
            (ref-set context-pane pane)
            (ref-set +debug+ right3)) 
          (+debug-hook+)
          ))) ) )

(defn plug-unload-hook
  "Unloads the context-editor plugin.

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

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