Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv8856
Modified Files: climacs.lisp Log Message: Drei-ify CLIM-Desktop.
--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/08/28 19:56:27 1.16 +++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp 2006/11/24 15:01:43 1.17 @@ -1,13 +1,13 @@ (in-package :climacs-commands)
(define-command (com-inspect-buffer :name "Inspect Buffer" :command-table base-table) () - (clouseau:inspector (buffer (current-window)))) + (clouseau:inspector *current-buffer*))
(define-command (com-inspect-window :name "Inspect Current Window" :command-table base-table) () - (clouseau:inspector (current-window))) + (clouseau:inspector *current-window*))
(define-command (com-inspect-syntax :name "Inspect Syntax" :command-table base-table) () - (clouseau:inspector (syntax (current-buffer *application-frame*)))) + (clouseau:inspector *current-syntax*))
(set-key 'com-inspect-buffer 'base-table @@ -77,14 +77,14 @@ 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)) + (drei-lisp-syntax:edit-definition symbol))
(define-command (com-edit-definition-of-type :command-table global-climacs-table) ((symbol 'symbol :prompt "Edit symbol") (type 'symbol)) "Edit the definition of a symbol as a given type." - (climacs-lisp-syntax:edit-definition symbol type)) + (drei-lisp-syntax:edit-definition symbol type))
;; Redefine (ed) (handler-bind ((#+sbcl sb-ext:package-lock-violation @@ -170,16 +170,16 @@
;; Translator for clicky goodness in Lisp Syntax:
-(define-command (com-inspect-symbol :name t :command-table climacs-lisp-syntax::lisp-table) +(define-command (com-inspect-symbol :name t :command-table drei-lisp-syntax::lisp-table) ((symbol 'symbol :prompt "Inspect symbol")) (clouseau:inspector symbol :new-process t))
(define-presentation-to-command-translator inspect-symbol - (symbol com-inspect-symbol climacs-lisp-syntax::lisp-table + (symbol com-inspect-symbol drei-lisp-syntax::lisp-table :gesture :inspect :tester ((object presentation) (declare (ignore object)) - (not (eq (presentation-type presentation) 'climacs-lisp-syntax::unknown-symbol))) + (not (eq (presentation-type presentation) 'drei-lisp-syntax::unknown-symbol))) :documentation "Inspect") (object) (list object))