[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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

Modified Files:
	climacs.lisp 
Log Message:
Added presentation translators for commands and command names.


--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/30 21:50:40	1.6
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/30 21:59:25	1.7
@@ -122,6 +122,20 @@
             :tester ((object presentation)
                      (declare (ignore object))
                      (not (eq (presentation-type presentation) 'unknown-symbol)))
-            :documentation "Edit definition")
+            :documentation "Edit Definition")
     (object)
-    (list object))
\ No newline at end of file
+    (list object))
+
+(define-presentation-to-command-translator global-edit-definition
+    (command-name com-edit-in-climacs global-command-table
+                  :gesture :select
+                  :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
+             :documentation "Edit Definition Of Command")
+    (object)
+    (list (command-name object)))
\ No newline at end of file