Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.460.mcz
==================== Summary ====================
Name: System-eem.460 Author: eem Time: 4 November 2011, 9:24:41.847 am UUID: 8a0828f0-10ab-47fa-b913-702447f13375 Ancestors: System-laza.459
Refactor SystemNavigation>>browseAllStoresInto:from: to provide SystemNavigation>>allStoresInto:from:.
=============== Diff against System-laza.459 ===============
Item was changed: ----- Method: SystemNavigation>>allAccessesTo:from: (in category 'query') ----- allAccessesTo: instVarName from: aClass + "Return a sequence of MethodReferences of all methods of aClass or it's sub/superclass that refer to the instance variable instVarName." - "Return a collection of all methods of aClass or it's sub/superclass that refer to the instance variable instVarName." | result | result := OrderedCollection new. + aClass withAllSubAndSuperclassesDo: + [ :class | + (class whichSelectorsAccess: instVarName) do: + [ :selector | - aClass withAllSubAndSuperclassesDo: [ :class | - (class whichSelectorsAccess: instVarName) do: [ :selector | result add: (MethodReference class: class selector: selector) ] ]. ^result!
Item was added: + ----- 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 withAllSubAndSuperclassesDo: + [ : class | + (class whichMethodsStoreInto: varName) do: + [ : eachMethod | + result add: eachMethod methodReference ] ]. + ^result!
Item was changed: ----- Method: SystemNavigation>>browseAllStoresInto:from: (in category 'browse') ----- + browseAllStoresInto: varName from: aClass - browseAllStoresInto: varName from: aClass "Create and schedule a Message Set browser for all the receiver's methods or any methods of a subclass/superclass that refer to the instance variable name." "self new browseAllStoresInto: 'contents' from: Collection." - | coll | - coll := OrderedCollection new. - Cursor wait showWhile: - [ aClass withAllSubAndSuperclassesDo: - [ : class | (class whichMethodsStoreInto: varName) do: - [ : eachMethod | eachMethod selector isDoIt ifFalse: [ coll add: eachMethod methodReference ] ] ] ]. ^ self + browseMessageList: (self allStoresInto: varName from: aClass) - browseMessageList: coll name: 'Stores into ' , varName autoSelect: varName!
packages@lists.squeakfoundation.org