[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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

Modified Files:
	climacs.lisp 
Log Message:
Use the :edit gesture instead of :select for editing.


--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/30 21:59:25	1.7
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/30 22:18:17	1.8
@@ -118,24 +118,24 @@
 
 (define-presentation-to-command-translator global-edit-definition
     (symbol com-edit-in-climacs global-command-table
-            :gesture :select
             :tester ((object presentation)
                      (declare (ignore object))
                      (not (eq (presentation-type presentation) 'unknown-symbol)))
+            :gesture :edit
             :documentation "Edit Definition")
     (object)
     (list object))
 
 (define-presentation-to-command-translator global-edit-definition
     (command-name com-edit-in-climacs global-command-table
-                  :gesture :select
+                  :gesture :edit
                   :documentation "Edit Definition Of Command")
     (object)
     (list object))
 
 (define-presentation-to-command-translator global-edit-definition
     (command com-edit-in-climacs global-command-table
-             :gesture :select
+             :gesture :edit
              :documentation "Edit Definition Of Command")
     (object)
     (list (command-name object)))
\ No newline at end of file