[squeak-dev] The Trunk: System-eem.460.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Nov 4 16:25:17 UTC 2011
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!
More information about the Squeak-dev
mailing list
|