--- a/BrowserView.st Sun Aug 13 22:54:21 1995 +0200
+++ b/BrowserView.st Tue Aug 15 23:25:46 1995 +0200
@@ -29,7 +29,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.15 1995-08-10 18:36:57 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.16 1995-08-15 21:25:46 claus Exp $
'!
!BrowserView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.15 1995-08-10 18:36:57 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.16 1995-08-15 21:25:46 claus Exp $
"
!
@@ -287,40 +287,34 @@
"answer a list of all selectors in a given method category
of the argument, aClass"
- |newList searchCategory|
-
- (aCategory = '* all *') ifTrue:[
- newList := aClass selectorArray asOrderedCollection
+ |newList searchCategory all|
+
+ all := (aCategory = '* all *').
+ (aCategory = '* no category *') ifTrue:[
+ searchCategory := nil
] ifFalse:[
- (aCategory = '* no category *') ifTrue:[
- searchCategory := nil
- ] ifFalse:[
- searchCategory := aCategory
- ].
- newList := OrderedCollection new.
- aClass methodArray with:aClass selectorArray do:[:aMethod :selector |
- |sel|
-
- (aMethod category = searchCategory) ifTrue:[
- sel := selector.
- aMethod isPrivate ifTrue:[
- sel := sel , ' (* private *)'.
- ].
+ searchCategory := aCategory
+ ].
+ newList := OrderedCollection new.
+ aClass methodArray with:aClass selectorArray do:[:aMethod :selector |
+ |sel|
+
+ (all or:[aMethod category = searchCategory]) ifTrue:[
+ sel := selector.
+ aMethod isPrivate ifTrue:[
+ sel := sel , ' (* private *)'.
+ ] ifFalse:[
aMethod isProtected ifTrue:[
sel := sel , ' (* protected *)'.
].
- aMethod isWrapped ifTrue:[
- sel := sel , ' !!'
- ].
- aMethod isInvalid ifTrue:[
- sel := sel , ' (not executable)'
- ].
-
- "mhmh - can this happen ?"
-"/ (newList includes:sel) ifFalse:[
- newList add:sel
-"/ ]
- ]
+ ].
+ aMethod isWrapped ifTrue:[
+ sel := sel , ' !!'
+ ].
+ aMethod isInvalid ifTrue:[
+ sel := sel , ' (not executable)'
+ ].
+ newList add:sel
]
].
(newList size == 0) ifTrue:[^ nil].