The Trunk: Tools-mt.669.mcz

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!