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

[Robert Strandh]

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

Modified Files:
	inspector.lisp 
Log Message:
slots are now presentations in preparation for a command
for assigning slot values.

Date: Sat Jan 29 07:27:37 2005
Author: rstrandh

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.4 mcclim/Apps/Inspector/inspector.lisp:1.5
--- mcclim/Apps/Inspector/inspector.lisp:1.4	Sat Jan 29 07:02:57 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Sat Jan 29 07:27:36 2005
@@ -126,7 +126,9 @@
 		    do (let ((slot-name (slot-definition-name slot)))
 			 (formatting-row (pane)
 			   (formatting-cell (pane :align-x :right)
-			     (format pane "~a:" slot-name))
+			     (with-output-as-presentation
+				 (pane slot (present-type-of slot))
+			       (format pane "~a:" slot-name)))
 			   (formatting-cell (pane)
 			     (inspect-object (slot-value object slot-name) pane))))))))))))