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