*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 28 Nov 2002 23:11:31 +0100
changeset 4332 c8efd47b1a1c
parent 4331 4902579f100a
child 4333 503f177eb6e8
*** empty log message ***
SystemBrowser.st
--- 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!