equal
deleted
inserted
replaced
5527 listOfAllSelectorsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass |
5527 listOfAllSelectorsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass |
5528 "answer a list of all selectors in a given method category |
5528 "answer a list of all selectors in a given method category |
5529 of the argument, aClass and its superclasses. |
5529 of the argument, aClass and its superclasses. |
5530 Used with fullProtocol browsing." |
5530 Used with fullProtocol browsing." |
5531 |
5531 |
5532 |newList| |
5532 |newList otherSelectors| |
5533 |
5533 |
5534 newList := Set new. |
5534 newList := Set new. |
|
5535 otherSelectors := IdentitySet new. |
5535 self classesInFullProtocolHierarchy:aClass do:[:c | |
5536 self classesInFullProtocolHierarchy:aClass do:[:c | |
5536 |searchCategory| |
5537 |searchCategory| |
5537 |
5538 |
5538 (aCategory = '* all *') ifTrue:[ |
5539 (aCategory = '* all *') ifTrue:[ |
5539 newList addAll:(c selectorArray) |
5540 newList addAll:(c selectorArray) |
5543 ] ifFalse:[ |
5544 ] ifFalse:[ |
5544 searchCategory := aCategory |
5545 searchCategory := aCategory |
5545 ]. |
5546 ]. |
5546 c methodArray with:c selectorArray do:[:aMethod :selector | |
5547 c methodArray with:c selectorArray do:[:aMethod :selector | |
5547 (aMethod category = searchCategory) ifTrue:[ |
5548 (aMethod category = searchCategory) ifTrue:[ |
5548 newList add:(aMethod printStringForBrowserWithSelector:selector) |
5549 (otherSelectors includes:selector) ifFalse:[ |
|
5550 newList add:(aMethod printStringForBrowserWithSelector:selector) |
|
5551 ]. |
|
5552 ] ifFalse:[ |
|
5553 otherSelectors add:selector |
5549 ] |
5554 ] |
5550 ] |
5555 ] |
5551 ]. |
5556 ]. |
5552 ]. |
5557 ]. |
5553 (newList size == 0) ifTrue:[^ nil]. |
5558 (newList size == 0) ifTrue:[^ nil]. |
5554 ^ newList asOrderedCollection sort |
5559 ^ newList asOrderedCollection sort |
5555 |
5560 |
5556 "Modified: 4.6.1996 / 23:13:32 / cg" |
5561 "Modified: 4.6.1996 / 23:27:03 / cg" |
5557 ! |
5562 ! |
5558 |
5563 |
5559 listOfAllSelectorsInCategory:aCategory ofClass:aClass |
5564 listOfAllSelectorsInCategory:aCategory ofClass:aClass |
5560 "answer a list of all selectors in a given method category |
5565 "answer a list of all selectors in a given method category |
5561 of the argument, aClass" |
5566 of the argument, aClass" |
7214 ! ! |
7219 ! ! |
7215 |
7220 |
7216 !BrowserView class methodsFor:'documentation'! |
7221 !BrowserView class methodsFor:'documentation'! |
7217 |
7222 |
7218 version |
7223 version |
7219 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.149 1996-06-04 21:15:14 cg Exp $' |
7224 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.150 1996-06-04 21:42:34 cg Exp $' |
7220 ! ! |
7225 ! ! |
7221 BrowserView initialize! |
7226 BrowserView initialize! |