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