Aug. 29, 2013
7:09 a.m.
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