The Trunk: Protocols-nice.46.mcz

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!