Hi guys
Is it a know bug?
| selector superClasses |
� � � � selector := aMethodDefinition selector.
� � � � superClasses := aMethodDefinition realClass allSuperclasses.
� � � � result := OrderedCollection new.
� � � � (superClasses select: [ :eachClass | eachClass hasProtocolFor: selector])
� � � � � � � � do: [ :eachClass | (eachClass includesSelector: selector)
� � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � ifTrue: [ result add: (self whichCategoryIncludesSelector: selector)]].
� � � � ^ result asBag
adds result
result | selector superClasses |
� � � � selector := aMethodDefinition selector.
� � � � superClasses := aMethodDefinition realClass allSuperclasses.
� � � � result := OrderedCollection new.
� � � � (superClasses select: [ :eachClass | eachClass hasProtocolFor: selector])
� � � � � � � � do: [ :eachClass | (eachClass includesSelector: selector)
� � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � ifTrue: [ result add: (self whichCategoryIncludesSelector: selector)]].
� � � � ^ result asBag
stef