[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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