--- 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!