The Trunk: System-eem.671.mcz

Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.671.mcz

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

Name: System-eem.671
Author: eem
Time: 2 May 2014, 4:07:33.923 pm
UUID: 89a11af6-9ef1-4bda-a42f-933a8ce17bb0
Ancestors: System-cwp.670

Fix allStoresInto:from: for pool variables and hence fix
browsing assignments... to a pool variable in classes that
use the pool.

=============== Diff against System-cwp.670 ===============

Item was changed:
  ----- Method: SystemNavigation>>allStoresInto:from: (in category 'query') -----
  allStoresInto: varName from: aClass
  "Answer a sequence of MewthodReferences for all the receiver's methods
  or any methods of a subclass/superclass that assign to the instance variable name."
  "self new allStoresInto: 'contents' from: Collection."
  | result |
  result := OrderedCollection new.
+ (aClass theNonMetaClass inheritsFrom: SharedPool) ifTrue:
+ [self allBehaviorsDo:
+ [:class|
+ (class theNonMetaClass sharedPools includes: aClass theNonMetaClass) ifTrue:
+ [(class whichMethodsStoreInto: varName) do:
+ [:eachMethod|
+ result add: eachMethod methodReference]]]].
  aClass withAllSubAndSuperclassesDo:
  [ : class |
  (class whichMethodsStoreInto: varName) do:
  [ : eachMethod |
  result add: eachMethod methodReference ] ].
  ^result!