              "Context")))
 
 (defn- second-op-context-and-go
-  "Creates a random context and adds a new tab with a context-editor."
+  "Show the current second operand context in a new tab."
   [frame]
   (let [thing (get-current-second-operand-context)]
     (add-tab frame

(defvar- *context-menu*
  {:name "Context",
   :content [{:name "Load Context",
	      :handler (fn [x] (load-context-and-go x read-context))},
             {:name "Random Context",
              :handler random-context-and-go},
             {:name "Second Operand Context",
              :handler second-op-context-and-go},
             {}
             {:name "Save Context",
              :content (vec (map (fn [x] {:name (str 
                                                  (replace-str ":" "" (str x)) 
                                                  " format"),
                                          :handler (fn [f]
                                                     (save-context-and-go f
                                                                          (fn [c p]
                                                                            (write-context x c p))))})
                                 (list-context-formats)))},
             {}
             {:name "Show Concept Lattice",

;; By using this software in any fashion, you are agreeing to be bound by
;; the terms of this license.
;; You must not remove this notice, or any other, from this software.

;; This file has been written by Immanuel Albrecht, with modifications by DB

(ns conexp.contrib.gui.editors.contexts
  (:use conexp.base
