The Trunk: Tools-ul.422.mcz

Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.422.mcz

==================== Summary ====================

Name: Tools-ul.422
Author: ul
Time: 3 September 2012, 11:54:59.7 am
UUID: 5abcf237-40bb-2143-85a6-595721d615c2
Ancestors: Tools-dtl.421

PointerExplorer enhancements:
- weak-only referers are shown at the end of the list and their identityHash is surrounded by parentheses
- refering contexts created by the explorer invocation from a workspace are not listed

=============== Diff against Tools-dtl.421 ===============

Item was changed:
  ----- Method: PointerExplorerWrapper>>contents (in category 'accessing') -----
  contents
+ "Return the wrappers with the objects holding references to item. Eldest objects come first, weak only referencers are at the end and have parentheses around their identity hash."
+
+ | objects weakOnlyReferences |
+ objects := item inboundPointersExcluding: { self. model }.
+ weakOnlyReferences := OrderedCollection new.
+ objects removeAllSuchThat: [ :each |
+ each class == self class
+ or: [ each class == PointerExplorer
+ or: [ (each class == MethodContext
+ and: [ each receiver class == PointerExplorer ] )
+ or: [ (each pointsOnlyWeaklyTo: item)
+ ifTrue: [ weakOnlyReferences add: each. true ]
+ ifFalse: [ false ] ] ] ] ].
+ ^(objects replace: [ :each |
+ self class with: each name: each identityHash asString model: item ])
+ addAll: (weakOnlyReferences replace: [ :each |
+ self class with: each name: '(', each identityHash asString, ')' model: item ]);
+ yourself!
- | objects |
- objects := Utilities pointersTo: item except: (Array with: self).
- ^(objects reject: [:ea | ea class = self class or: [ea class = PointerExplorer]])
- collect: [:ea| self class with: ea name: ea identityHash asString model: item]!