--- a/SystemBrowser.st Thu Nov 28 18:55:13 2002 +0100
+++ b/SystemBrowser.st Thu Nov 28 23:11:31 2002 +0100
@@ -1923,6 +1923,9 @@
].
searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
+ searchBlock isNil ifTrue:[
+ ^ #() "/ none (no such selector)
+ ].
^ self allMethodsIn:classesSearched where:searchBlock
"
@@ -4990,7 +4993,7 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.179 2002-11-22 19:40:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.180 2002-11-28 22:11:31 cg Exp $'
! !
SystemBrowser initialize!