[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

Update of /project/clim-desktop/cvsroot/clim-desktop
In directory clnet:/tmp/cvs-serv7956

Modified Files:
	climacs.lisp 
Log Message:
The Climacs-internal com-edit-definition and
com-edit-definition-of-type commands should not be directly callable
(Climacs uses the global CLIM commands as well, except for
com-edit-this-definition of course), add Edit Symbol Definition as the
global command for editing all definitions (this fixes a bug).


--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/06/01 19:59:11	1.10
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/06/01 23:00:09	1.11
@@ -76,7 +76,7 @@
 
 ;; These commands should only be called from within Climacs:
 
-(define-command (com-edit-definition :name t :command-table global-climacs-table)
+(define-command (com-edit-definition :command-table global-climacs-table)
     ((symbol 'symbol
       :prompt "Edit symbol"))
   "Edit the definition of a symbol as a given type.
@@ -87,7 +87,7 @@
 displayed."
   (climacs-lisp-syntax:edit-definition symbol))
 
-(define-command (com-edit-definition-of-type :name t :command-table global-climacs-table)
+(define-command (com-edit-definition-of-type :command-table global-climacs-table)
     ((symbol 'symbol
       :prompt "Edit symbol")
      (type 'symbol))
@@ -111,6 +111,17 @@
 
 ;; The following commands can be safely called from outside Climacs:
 
+(define-command (com-edit-symbol-definition :name t :command-table global-command-table)
+    ((symbol 'symbol
+      :prompt "Edit symbol"))
+  "Edit the definition of a symbol as a given type.
+
+If the symbol has been defined more than once (eg. to a function
+as well as a class, or as numerous methods), a
+mouse-click-sensitive list of available definitions will be
+displayed."
+  (edit-in-climacs symbol))
+
 (define-command (com-edit-class-definition :name t :command-table global-command-table)
     ((symbol 'symbol
       :prompt "Edit symbol"))
@@ -128,7 +139,7 @@
   (edit-in-climacs thing))
 
 (define-presentation-to-command-translator global-edit-symbol-definition-translator
-    (symbol com-edit-definition global-command-table
+    (symbol com-edit-symbol-definition global-command-table
             :tester ((object presentation)
                      (declare (ignore object))
                      (and (not (eq (presentation-type presentation) 'unknown-symbol))))