[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-serv30166

Modified Files:
	inspector.lisp 
Log Message:
Better layout for standard-object

Date: Sat Jan 29 06:58:30 2005
Author: rstrandh

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.2 mcclim/Apps/Inspector/inspector.lisp:1.3
--- mcclim/Apps/Inspector/inspector.lisp:1.2	Sat Jan 29 06:48:38 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Sat Jan 29 06:58:29 2005
@@ -119,13 +119,16 @@
 	  (formatting-cell (pane)
 	    (surrounding-output-with-border (pane)
 	      (print (class-name class) pane))))
-	(loop for slot in (reverse (class-slots class))
-	      do (let ((slot-name (slot-definition-name slot)))
-		   (formatting-row (pane)
-		     (formatting-cell (pane :align-x :right)
-		       (format pane "~a:" slot-name))
-		     (formatting-cell (pane)
-		       (inspect-object (slot-value object slot-name) pane)))))))))
+	(formatting-row (pane)
+	  (formatting-cell (pane)
+	    (formatting-table (pane)
+	      (loop for slot in (reverse (class-slots class))
+		    do (let ((slot-name (slot-definition-name slot)))
+			 (formatting-row (pane)
+			   (formatting-cell (pane :align-x :right)
+			     (format pane "~a:" slot-name))
+			   (formatting-cell (pane)
+			     (inspect-object (slot-value object slot-name) pane))))))))))))
 
 (defmethod inspect-object ((object cons) pane)
   (if (null (cdr object))