[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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

Modified Files:
	climacs.lisp 
Log Message:
Added global translator for editing files denoted by pathnames in
Climacs.


--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/06/02 09:25:09	1.12
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/07/05 14:14:38	1.13
@@ -163,4 +163,11 @@
              :gesture :edit
              :documentation "Edit Definition Of Command")
     (object)
-    (list (command-name object)))
\ No newline at end of file
+    (list (command-name object)))
+
+(define-presentation-to-command-translator global-edit-pathname-translator
+    (pathname com-edit-in-climacs global-command-table
+             :gesture :edit
+             :documentation "Edit File")
+    (object)
+    (list object))