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

[Peter Scott]

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

Modified Files:
	inspector.lisp 
Log Message:
Removed bad decision to use 'vector presentation type, extended 
abbreviation threshold, changed abbreviation syntax to be less 
surprising.

Date: Sat Feb  5 18:28:00 2005
Author: pscott

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.14 mcclim/Apps/Inspector/inspector.lisp:1.15
--- mcclim/Apps/Inspector/inspector.lisp:1.14	Sat Feb  5 15:40:55 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Sat Feb  5 18:28:00 2005
@@ -171,7 +171,8 @@
 		   (format pane "~a:" slot-name))
 		 (inspect-object (slot-value object slot-name) pane)))))))
 
-(defparameter *object-representation-max-length* 60
+;; FIXME: should this be removed? It's really ugly.
+(defparameter *object-representation-max-length* 300
   "Maximum number of characters of an object's textual representation
 that are allowed before abbreviation kicks in")
 
@@ -184,7 +185,7 @@
 			    (prin1 object string))))
       (if (< (length representation) *object-representation-max-length*)
 	  (princ representation pane)
-	  (format pane "instance of ~S" (class-name (class-of object)))))))
+	  (format pane "#<~S ...>" (class-name (class-of object)))))))
 
 (defmethod inspect-object ((object standard-object) pane)
   (inspect-structure-or-object object pane))
@@ -348,10 +349,8 @@
           (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 'vector)
+      (pane object (presentation-type-of object))
     (formatting-table (pane)
       (formatting-row (pane)
         (formatting-cell (pane)