# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1537968149 -7200
# Node ID ae82fa7f3a6c273b861ef6c592b83e5ee16e528c
# Parent  4afda005ed69a54ec61a765c80f6073b346d2dee
#FEATURE by cg
class: DebugView
changed: #helpTextFor:at:
vare for proxies

diff -r 4afda005ed69 -r ae82fa7f3a6c DebugView.st
--- 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'!