--- a/InspectorView.st Thu Oct 18 11:22:39 2001 +0200
+++ b/InspectorView.st Thu Oct 18 11:58:58 2001 +0200
@@ -16,7 +16,7 @@
instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown
hasMore monitorProcess hideReceiver showHex inspectHistory
allowFollow isStandaloneInspector selectionIndex object
- inspectedObjectHolder'
+ inspectedObjectHolder displayStringMessage'
classVariableNames:'DefaultIcon'
poolDictionaries:''
category:'Interface-Inspector'
@@ -393,6 +393,7 @@
super initialize.
+ displayStringMessage := #displayString.
hideReceiver := false.
showHex := false.
allowFollow := false.
@@ -1246,9 +1247,17 @@
|s|
Object errorSignal handle:[:ex |
- s := someValue classNameWithArticle , ' "error in displayString"'
+ s := someValue classNameWithArticle.
+ displayStringMessage == #displayString ifTrue:[
+ s := s , ' "error in displayString"'
+ ] ifFalse:[
+ s := s , ' "error in displayString (' , displayStringMessage , ')"'
+ ]
] do:[
- s := someValue displayString.
+ "/ displayStringMessage := #classNameWithArticle
+ "/ displayStringMessage := #displayString
+ "/ displayStringMessage := #printString
+ s := someValue perform:displayStringMessage.
showHex ifTrue:[
someValue isInteger ifTrue:[
s := '16r' , someValue hexPrintString
@@ -1347,5 +1356,5 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.114 2001-09-25 12:57:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.115 2001-10-18 09:58:58 cg Exp $'
! !