--- a/SystemBrowser.st	Thu Sep 23 14:15:27 1999 +0200
+++ b/SystemBrowser.st	Thu Sep 23 14:15:54 1999 +0200
@@ -984,19 +984,7 @@
     "Created: 31.10.1996 / 14:57:30 / cg"
 !
 
-browseForSymbol:aSymbol title:title warnIfNone:doWarn
-    "launch a browser for all methods referencing aSymbol"
-
-    ^ self
-        browseForSymbol:aSymbol 
-        title:title 
-        warnIfNone:doWarn 
-        searchFor:aSymbol
-
-    "Modified: 31.10.1996 / 14:45:38 / cg"
-!
-
-browseForSymbol:aSymbol title:title warnIfNone:doWarn searchFor:searchString
+browseForSymbol:aSymbol title:title ifNone:actionIfNoneFound searchFor:searchString
     "launch a browser for all methods referencing aSymbol"
 
     |browser searchBlock sym|
@@ -1015,7 +1003,7 @@
         "
         sym := aSymbol asSymbolIfInterned.
         sym isNil ifTrue:[
-            self showNoneFound:title.
+            actionIfNoneFound value.
             ^ nil
         ].
 
@@ -1025,12 +1013,14 @@
                             ] ifNone:nil) notNil
                        ].
     ].
-    doWarn ifFalse:[
-        WarningSignal ignoreIn:[
+
+    WarningSignal ignoreIn:[
+        InformationSignal ignoreIn:[
             browser := self browseMethodsWhere:searchBlock title:title.
         ]
-    ] ifTrue:[
-        browser := self browseMethodsWhere:searchBlock title:title.
+    ].
+    browser isNil ifTrue:[
+        actionIfNoneFound value
     ].
 
     (browser notNil 
@@ -1044,6 +1034,28 @@
     "Modified: 31.10.1996 / 14:46:07 / cg"
 !
 
+browseForSymbol:aSymbol title:title warnIfNone:doWarn
+    "launch a browser for all methods referencing aSymbol"
+
+    ^ self
+        browseForSymbol:aSymbol 
+        title:title 
+        warnIfNone:doWarn 
+        searchFor:aSymbol
+
+    "Modified: 31.10.1996 / 14:45:38 / cg"
+!
+
+browseForSymbol:aSymbol title:title warnIfNone:doWarn searchFor:searchString
+    "launch a browser for all methods referencing aSymbol"
+
+    ^ self
+        browseForSymbol:aSymbol 
+        title:title 
+        ifNone:(doWarn ifTrue:[[self showNoneFound:title]] ifFalse:nil) 
+        searchFor:searchString
+!
+
 browseImplementorsOf:aSelectorString
     "launch a browser for all implementors of aSelector"
 
@@ -1224,6 +1236,21 @@
     "Modified: / 30.10.1997 / 23:45:52 / cg"
 !
 
+browseReferendsOf:aGlobalName ifNone:actionIfNone
+    "launch a browser for all methods referencing a global
+     named aGlobalName.
+    "
+
+    ^ self
+        browseReferendsOf:aGlobalName 
+        title:(self classResources string:'users of: %1' with:aGlobalName)
+        ifNone:actionIfNone
+
+    "Modified: / 31.10.1997 / 15:42:05 / cg"
+
+
+!
+
 browseReferendsOf:aGlobalName in:aSetOfClasses
     "launch a browser for all methods referencing a global
      named aGlobalName.
@@ -1260,7 +1287,7 @@
     "Modified: 31.10.1996 / 14:56:38 / cg"
 !
 
-browseReferendsOf:aGlobalName title:title warnIfNone:doWarn
+browseReferendsOf:aGlobalName title:title ifNone:actionIfNone
     "launch a browser for all methods referencing a global
      named aGlobalName.
     "
@@ -1278,11 +1305,25 @@
 
     ^ self browseForSymbol:aGlobalName 
                      title:title 
-                warnIfNone:doWarn
+                    ifNone:actionIfNone
                  searchFor:globalsPlainName
 
     "Modified: / 31.10.1996 / 14:47:48 / cg"
     "Created: / 31.10.1997 / 15:41:28 / cg"
+
+
+!
+
+browseReferendsOf:aGlobalName title:title warnIfNone:doWarn
+    "launch a browser for all methods referencing a global
+     named aGlobalName.
+    "
+
+    ^ self
+        browseReferendsOf:aGlobalName 
+        title:title 
+        ifNone:(doWarn ifTrue:[[self showNoneFound:title]] ifFalse:nil)
+
 !
 
 browseReferendsOf:aGlobalName warnIfNone:doWarn
@@ -2040,6 +2081,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.93 1999-09-17 16:57:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.94 1999-09-23 12:15:54 cg Exp $'
 ! !
 SystemBrowser initialize!