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

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)
participants (1)
-
pscott@common-lisp.net