SystemBrowser.st
changeset 215 244f3a9b2a60
parent 204 6f4460d5a09d
child 254 8258536e5bcf
--- a/SystemBrowser.st	Sat Nov 25 13:16:57 1995 +0100
+++ b/SystemBrowser.st	Sat Nov 25 13:18:16 1995 +0100
@@ -146,11 +146,11 @@
 !SystemBrowser class methodsFor:'private helpers'!
 
 showNoneFound
-    Dialog warn:(self classResources string:'None found').
+    super warn:(self classResources string:'None found').
 !
 
 showNoneFound:what
-    Dialog warn:(self classResources string:(what , '...\\... none found') withCRs).
+    super warn:(self classResources string:(what , '...\\... none found') withCRs).
 ! !
 
 !SystemBrowser class methodsFor:'private instance creation'!
@@ -487,7 +487,15 @@
 			    found
 		       ].
     ].
-    browser := self browseMethodsWhere:searchBlock title:title.
+    doWarn ifFalse:[
+	WarningSignal handle:[:ex |
+	    ex proceed
+	] do:[
+	    browser := self browseMethodsWhere:searchBlock title:title.
+	]
+    ] ifTrue:[
+	browser := self browseMethodsWhere:searchBlock title:title.
+    ].
     browser notNil ifTrue:[
 	browser autoSearch:aSymbol
     ].
@@ -1162,6 +1170,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.44 1995-11-24 10:31:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.45 1995-11-25 12:18:16 cg Exp $'
 ! !
 SystemBrowser initialize!