[squeak-dev] The Trunk: Protocols-ael.39.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Dec 21 07:50:48 UTC 2011


Alexander Lazarević uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-ael.39.mcz

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

Name: Protocols-ael.39
Author: ael
Time: 19 December 2011, 3:28:30.675 pm
UUID: 23e939f2-a304-8240-b04f-466169f9b0d0
Ancestors: Protocols-ul.38

fix to protocol browser's filtering by class-variable ref

=============== Diff against Protocols-ul.38 ===============

Item was changed:
  ----- Method: Lexicon>>selectorsReferringToClassVar (in category 'category list') -----
  selectorsReferringToClassVar
  	"Return a list of methods that refer to given class var that are in the 
  	protocol of this object"
  	| aList aClass nonMeta poolAssoc |
  	nonMeta := targetClass theNonMetaClass.
  	aClass := nonMeta classThatDefinesClassVariable: currentQueryParameter.
  	aList := OrderedCollection new.
  	poolAssoc := aClass classPool associationAt: currentQueryParameter asSymbol.
  	(self systemNavigation allCallsOn: poolAssoc)
+ 		do: [:elem | (nonMeta inheritsFrom: elem actualClass)
- 		do: [:elem | (nonMeta isKindOf: elem actualClass)
  				ifTrue: [aList add: elem methodSymbol]].
  	^ aList!




More information about the Squeak-dev mailing list