[Pkg] 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 Packages
mailing list