[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