Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv7956 Modified Files: climacs.lisp Log Message: The Climacs-internal com-edit-definition and com-edit-definition-of-type commands should not be directly callable (Climacs uses the global CLIM commands as well, except for com-edit-this-definition of course), add Edit Symbol Definition as the global command for editing all definitions (this fixes a bug). --- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/06/01 19:59:11 1.10 +++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/06/01 23:00:09 1.11 @@ -76,7 +76,7 @@ ;; These commands should only be called from within Climacs: -(define-command (com-edit-definition :name t :command-table global-climacs-table) +(define-command (com-edit-definition :command-table global-climacs-table) ((symbol 'symbol :prompt "Edit symbol")) "Edit the definition of a symbol as a given type. @@ -87,7 +87,7 @@ displayed." (climacs-lisp-syntax:edit-definition symbol)) -(define-command (com-edit-definition-of-type :name t :command-table global-climacs-table) +(define-command (com-edit-definition-of-type :command-table global-climacs-table) ((symbol 'symbol :prompt "Edit symbol") (type 'symbol)) @@ -111,6 +111,17 @@ ;; The following commands can be safely called from outside Climacs: +(define-command (com-edit-symbol-definition :name t :command-table global-command-table) + ((symbol 'symbol + :prompt "Edit symbol")) + "Edit the definition of a symbol as a given type. + +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." + (edit-in-climacs symbol)) + (define-command (com-edit-class-definition :name t :command-table global-command-table) ((symbol 'symbol :prompt "Edit symbol")) @@ -128,7 +139,7 @@ (edit-in-climacs thing)) (define-presentation-to-command-translator global-edit-symbol-definition-translator - (symbol com-edit-definition global-command-table + (symbol com-edit-symbol-definition global-command-table :tester ((object presentation) (declare (ignore object)) (and (not (eq (presentation-type presentation) 'unknown-symbol))))