[mcclim-cvs] CVS update: mcclim/Apps/Inspector/inspector.lisp mcclim/Apps/Inspector/clouseau.asd

[Peter Scott]

Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector
In directory common-lisp.net:/tmp/cvs-serv26011

Modified Files:
	inspector.lisp clouseau.asd 
Log Message:
Exported DEFINE-INSPECTOR-COMMAND and changed the presentation type for 
vectors to 'VECTOR. This makes it easier to extend the inspector in 
application-specific ways.

Date: Fri Feb  4 23:37:21 2005
Author: pscott

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.12 mcclim/Apps/Inspector/inspector.lisp:1.13
--- mcclim/Apps/Inspector/inspector.lisp:1.12	Fri Feb  4 21:17:42 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Fri Feb  4 23:37:21 2005
@@ -1,4 +1,4 @@
-;;; -*- Mode: Lisp; Package: INSPECTOR -*-
+;;; -*- Mode: Lisp; Package: CLOUSEAU -*-
 
 ;;;  (c) copyright 2005 by
 ;;;           Robert Strandh (strandh at labri.fr)
@@ -348,8 +348,10 @@
           (inspect-object uses pane)))))
 
 (defmethod inspect-object ((object vector) pane)
+  ;; Using 'vector as the presentation type may be nonstandard, but it
+  ;; is more useful than the default.
   (with-output-as-presentation
-      (pane object (presentation-type-of object))
+      (pane object 'vector)
     (formatting-table (pane)
       (formatting-row (pane)
         (formatting-cell (pane)


Index: mcclim/Apps/Inspector/clouseau.asd
diff -u mcclim/Apps/Inspector/clouseau.asd:1.2 mcclim/Apps/Inspector/clouseau.asd:1.3
--- mcclim/Apps/Inspector/clouseau.asd:1.2	Fri Feb  4 21:17:42 2005
+++ mcclim/Apps/Inspector/clouseau.asd	Fri Feb  4 23:37:21 2005
@@ -24,7 +24,8 @@
   (:use :clim-lisp :clim)
   (:export #:inspector
 	   #:inspect-object
-	   #:inspect-object-briefly))
+	   #:inspect-object-briefly
+	   #:define-inspector-command))
 
 (asdf::defsystem clouseau
     :serial t