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))
