[mcclim-devel] Inspector patch: view cons cells as list

[Peter Wilson]

On Wed, 2 Feb 2005 14:46:53 -0700, Peter Scott <sketerpot at gmail.com> wrote:

> It's a little hard to use (toggling is difficult when you have to hit
> those tiny little parentheses, and I'm not entirely sure how to get
> back from the graphical view),

True. I forgot to make the graphical view use the cons presentation.
(Although if there were some way to make (presentation-type-of) of a
cons return something more informative than (SEQUENCE T), it might
work automatically.)


--- inspector.lisp	2005-02-02 15:22:39.000000000 -0800
+++ inspector.lisp	2005-02-02 15:26:09.000000000 -0800
@@ -138,7 +138,7 @@
 	(formatting-column (pane)
 	  (formatting-cell (pane)
             (with-output-as-presentation
-                (pane object (presentation-type-of object))
+                (pane object 'cons)
               (draw-rectangle* pane 0 0 20 10 :filled nil))
 	    (draw-line* pane 10 0 10 10)
 	    (draw-arrow* pane 5 5 5 30)
@@ -152,7 +152,7 @@
 	      (formatting-column (pane)
 		(formatting-cell (pane)
 		  (with-output-as-presentation
-		      (pane object (presentation-type-of object))
+		      (pane object 'cons)
 		    (draw-rectangle* pane 0 0 20 10 :filled nil))
 		  (draw-line* pane 10 0 10 10)
 		  (draw-arrow* pane 5 5 5 30)