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

Modified Files: climacs.lisp Log Message: Cleanups and the removal of Climacs' own Edit Definition command. I think everything works now.

--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/05/30 22:18:17 1.8 +++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/05/31 11:11:08 1.9 @@ -8,31 +8,6 @@ ((file 'pathname)) (find-file file))

-;; This command and presentation translator exists here, because we -;; want it to be completely ubiquitous in Climacs - specifically, we -;; want to be able to go to the definition of a symbol just by -;; clicking on any properly `present'ed object. -(define-command (com-edit-definition :name t :command-table global-climacs-table) - ((symbol 'symbol - :prompt "Edit symbol")) - "Edit the definition of a symbol. - -If the symbol has been defined more than once (eg. to a function -as well as a class, or as numerous methods), a -mouse-click-sensitive list of available definitions will be -displayed." - (climacs-lisp-syntax:edit-definition symbol)) - -(define-presentation-to-command-translator edit-definition - (symbol com-edit-definition global-climacs-table - :gesture :select - :tester ((object presentation) - (declare (ignore object)) - (not (eq (presentation-type presentation) 'unknown-symbol))) - :documentation "Edit definition") - (object) - (list object)) - (define-command (com-inspect-buffer :name "Inspect Buffer" :command-table base-table) () (clouseau:inspector (buffer (current-window))))

@@ -112,11 +87,22 @@ (with-climacs-frame (frame) (raise-frame frame))))))

+(define-command (com-edit-definition :name t :command-table global-climacs-table) + ((symbol 'symbol + :prompt "Edit symbol")) + "Edit the definition of a symbol. + +If the symbol has been defined more than once (eg. to a function +as well as a class, or as numerous methods), a +mouse-click-sensitive list of available definitions will be +displayed." + (climacs-lisp-syntax:edit-definition symbol)) + (define-command (com-edit-in-climacs :command-table global-command-table) ((thing t)) (edit-in-climacs thing))

-(define-presentation-to-command-translator global-edit-definition +(define-presentation-to-command-translator global-edit-symbol-definition (symbol com-edit-in-climacs global-command-table :tester ((object presentation) (declare (ignore object)) @@ -126,14 +112,14 @@ (object) (list object))

-(define-presentation-to-command-translator global-edit-definition +(define-presentation-to-command-translator global-edit-command-name-definition (command-name com-edit-in-climacs global-command-table :gesture :edit :documentation "Edit Definition Of Command") (object) (list object))

-(define-presentation-to-command-translator global-edit-definition +(define-presentation-to-command-translator global-edit-command-definition (command com-edit-in-climacs global-command-table :gesture :edit :documentation "Edit Definition Of Command")