[clim-desktop-cvs] CVS clim-desktop

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
participants (1)
-
thenriksen