methodsInCategory: aName 
        "Answer a list of the methods of the receiver that are in category 
named aName"
        
        | aColl |
        aColl := Set withAll: (self organization listAtCategoryNamed: aName).
        ^ aColl asArray sort


allMethodsInCategory: aName 
        "Answer a list of all the methods of the receiver and all its 
        superclasses that are in the category named aName"
        
        | aColl |
        aColl := OrderedCollection new.
        self withAllSuperclasses do: [:aClass | 
                aColl addAll: (aClass organization listAtCategoryNamed: aName) 
].
        ^ aColl asSet asArray sort


uncategorizedMethods
        ^ self methodsInCategory: Protocol unclassified

all these methods returns selectors and not compiled methods.

So I would like to rename them accordingly.
What do you think?

Stef

Reply via email to