[squeak-dev] The Trunk: Protocols-nice.46.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Dec 17 22:46:12 UTC 2013


Nicolas Cellier uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-nice.46.mcz

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

Name: Protocols-nice.46
Author: nice
Time: 17 December 2013, 11:45:51.82 pm
UUID: 15b63671-d541-4c1d-9ff5-72da4fc5bfe9
Ancestors: Protocols-nice.45

No need to check if some class selectors are doIt because doIt are no longer installed in method dictionaries.

=============== Diff against Protocols-nice.45 ===============

Item was changed:
  ----- Method: Lexicon>>selectorsDefiningInstVar (in category 'within-tool queries') -----
  selectorsDefiningInstVar
  	"Return a list of methods that define a given inst var that are in the protocol of this object"
  
  	| aList  |
  	aList := OrderedCollection new.
  	targetClass withAllSuperclassesDo:
  		[:aClass | 
+ 			aList addAll: (aClass whichMethodsStoreInto: currentQueryParameter asString)
- 			(aClass whichMethodsStoreInto: currentQueryParameter asString) do: 
- 				[ : cm | cm selector isDoIt ifFalse: [aList add: cm selector]
- 			]
  		].
  	^ aList!

Item was changed:
  ----- Method: Lexicon>>selectorsReferringToInstVar (in category 'within-tool queries') -----
  selectorsReferringToInstVar
  	"Return a list of methods that refer to a given inst var that are in the protocol of this object"
  
  	| aList  |
  	aList := OrderedCollection new.
  	targetClass withAllSuperclassesDo: [:aClass | 
+ 		aList addAll: (aClass whichSelectorsAccess: currentQueryParameter asString)
- 		(aClass whichSelectorsAccess: currentQueryParameter asString) do: [:sel | 
- 			sel isDoIt ifFalse: [aList add: sel]
- 		]
  	].
  	^ aList!



More information about the Squeak-dev mailing list