[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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

Modified Files:
	climacs.lisp 
Log Message:
Cleanups and the removal of Climacs' own Edit Definition command. I
think everything works now.


--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/30 22:18:17	1.8
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/31 11:11:08	1.9
@@ -8,31 +8,6 @@
     ((file 'pathname))
   (find-file file))
 
-;; This command and presentation translator exists here, because we
-;; want it to be completely ubiquitous in Climacs - specifically, we
-;; want to be able to go to the definition of a symbol just by
-;; clicking on any properly `present'ed object.
-(define-command (com-edit-definition :name t :command-table global-climacs-table)
-    ((symbol 'symbol
-      :prompt "Edit symbol"))
-  "Edit the definition of a symbol.
-
-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."
-  (climacs-lisp-syntax:edit-definition symbol))
-
-(define-presentation-to-command-translator edit-definition
-    (symbol com-edit-definition global-climacs-table
-            :gesture :select
-            :tester ((object presentation)
-                     (declare (ignore object))
-                     (not (eq (presentation-type presentation) 'unknown-symbol)))
-            :documentation "Edit definition")
-    (object)
-    (list object))
-
 (define-command (com-inspect-buffer :name "Inspect Buffer" :command-table base-table) ()
 		(clouseau:inspector (buffer (current-window))))
 
@@ -112,11 +87,22 @@
           (with-climacs-frame (frame)
             (raise-frame frame))))))
 
+(define-command (com-edit-definition :name t :command-table global-climacs-table)
+    ((symbol 'symbol
+      :prompt "Edit symbol"))
+  "Edit the definition of a symbol.
+
+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."
+  (climacs-lisp-syntax:edit-definition symbol))
+
 (define-command (com-edit-in-climacs :command-table global-command-table)
     ((thing t))
   (edit-in-climacs thing))
 
-(define-presentation-to-command-translator global-edit-definition
+(define-presentation-to-command-translator global-edit-symbol-definition
     (symbol com-edit-in-climacs global-command-table
             :tester ((object presentation)
                      (declare (ignore object))
@@ -126,14 +112,14 @@
     (object)
     (list object))
 
-(define-presentation-to-command-translator global-edit-definition
+(define-presentation-to-command-translator global-edit-command-name-definition
     (command-name com-edit-in-climacs global-command-table
                   :gesture :edit
                   :documentation "Edit Definition Of Command")
     (object)
     (list object))
 
-(define-presentation-to-command-translator global-edit-definition
+(define-presentation-to-command-translator global-edit-command-definition
     (command com-edit-in-climacs global-command-table
              :gesture :edit
              :documentation "Edit Definition Of Command")