#BUGFIX by cg
class: ObjectMemory class
changed: #displayRefChainToAny:limitNumberOfSearchedReferences:
--- a/ObjectMemory.st Wed Aug 01 13:23:59 2018 +0200
+++ b/ObjectMemory.st Wed Aug 01 16:20:38 2018 +0200
@@ -1654,7 +1654,7 @@
chain := chains first.
chains removeFirst.
- lbl label:('found a reference chain.').
+ lbl label:('Found a reference chain.').
progress beInvisible.
chain addFirst:Smalltalk.
@@ -1677,11 +1677,23 @@
listV list:list.
listV beVisible.
- listV doubleClickAction:[:idx | |o|
- (o := chain at:idx) notNil ifTrue:[
- o inspect.
- ]
- ].
+ listV
+ doubleClickAction:[:idx |
+ |o key idxOfColon mayBeClassName mayBeClassVarName cls|
+
+ (o := chain at:idx) notNil ifTrue:[
+ key := (list at:idx) string.
+ (key includes:$:) ifTrue:[
+ idxOfColon := key lastIndexOf:$:.
+ mayBeClassName := key copyTo:idxOfColon-1.
+ mayBeClassVarName := key copyFrom:idxOfColon+1.
+ (cls := Smalltalk classNamed:mayBeClassName) notNil ifTrue:[
+ o := cls
+ ].
+ ].
+ o inspect.
+ ]
+ ].
moreButton beVisible.
anyShown := anyShownInAnyLevel := true.
showMore := false.
@@ -1800,6 +1812,7 @@
"Created: / 02-02-1998 / 23:58:04 / cg"
"Modified: / 10-07-1998 / 17:22:06 / cg"
"Modified: / 21-02-2017 / 09:49:40 / stefan"
+ "Modified: / 01-08-2018 / 13:31:17 / Claus Gittinger"
!
dumpObject:someObject