Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.669.mcz
==================== Summary ====================
Name: Tools-mt.669 Author: mt Time: 3 February 2016, 9:03:12.626922 pm UUID: 17c9ee50-3551-4758-b80a-85670df52561 Ancestors: Tools-mt.668
Fixes regression in pointer explorer.
=============== Diff against Tools-mt.668 ===============
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 := self object inboundPointersExcluding: { self. self item. model }. - 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: self object) - or: [ (each pointsOnlyWeaklyTo: item) ifTrue: [ weakOnlyReferences add: each. true ] ifFalse: [ false ] ] ] ] ]. ^(objects replace: [ :each | + self class with: each name: each identityHash asString model: self object ]) - self class with: each name: each identityHash asString model: item ]) addAll: (weakOnlyReferences replace: [ :each | + (self class with: each name: '(', each identityHash asString, ')' model: self object) - (self class with: each name: '(', each identityHash asString, ')' model: item) weakOnly: true; yourself ]); yourself!
squeak-dev@lists.squeakfoundation.org