--- a/DebugView.st Wed Sep 26 12:39:34 2018 +0200
+++ b/DebugView.st Wed Sep 26 15:22:29 2018 +0200
@@ -2985,33 +2985,36 @@
valueClassOrSizeString := valueString := ''.
- "/ some heuristics as when to show the class name (a purely subjective preference)
- value isString ifTrue:[
- value isText ifTrue:[
- valueString := '"',(value contractTo:80),'"'.
- ] ifFalse:[
- valueString := value storeString contractTo:80.
- ].
+ value isBridgeProxy ifTrue:[
+ valueString := value printString
] ifFalse:[
- (value isBoolean
- or:[ value isInteger
- or:[ value isSymbol ]]) ifTrue:[
- valueString := value printString.
+ "/ some heuristics as when to show the class name (a purely subjective preference)
+ value isString ifTrue:[
+ value isText ifTrue:[
+ valueString := '"',(value contractTo:80),'"'.
+ ] ifFalse:[
+ valueString := value storeString contractTo:80.
+ ].
] ifFalse:[
- valueClassOrSizeString := ' (',value class name,')'.
-
- (value isArray
- or:[ value isOrderedCollection ]) ifTrue:[
- valueClassOrSizeString := ' (size=',value size printString,')'.
- ].
-
- Error handle:[:ex |
- valueString := '??? (',ex description,')'
- ] do:[
- [
- valueString := value printString contractTo:80.
- ] valueWithWatchDog:[ valueString := value class nameWithArticle ] afterMilliseconds:30.
- "do not use classNameWithArticle - it is missing in ProtoObject!!"
+ (value isBoolean
+ or:[ value isInteger
+ or:[ value isSymbol ]]) ifTrue:[
+ valueString := value printString.
+ ] ifFalse:[
+ valueClassOrSizeString := ' (',value class name,')'.
+
+ value isCollection ifTrue:[
+ valueClassOrSizeString := ' (size=',value size printString,')'.
+ ].
+
+ Error handle:[:ex |
+ valueString := '??? (',ex description,')'
+ ] do:[
+ [
+ valueString := value printString contractTo:80.
+ ] valueWithWatchDog:[ valueString := value class nameWithArticle ] afterMilliseconds:30.
+ "do not use classNameWithArticle - it is missing in ProtoObject!!"
+ ]
]
]
].
@@ -3030,7 +3033,7 @@
^ s
"Modified: / 27-04-2010 / 17:51:53 / cg"
- "Modified: / 28-07-2018 / 11:54:13 / Claus Gittinger"
+ "Modified: / 26-09-2018 / 14:25:46 / Claus Gittinger"
! !
!DebugView methodsFor:'initialization & release'!