SystemBrowser.st
changeset 2439 2c7133af56df
parent 2418 f3a71ed438be
child 2484 afd8d8dbd9e2
--- a/SystemBrowser.st	Fri Oct 29 16:48:23 1999 +0200
+++ b/SystemBrowser.st	Tue Nov 09 18:01:16 1999 +0100
@@ -992,10 +992,11 @@
     (aSymbol includesMatchCharacters) ifTrue:[
         "a matchString"
         searchBlock := [:c :m :s |
-                            (m literalsDetect:[:aLiteral|
-                                (aLiteral isMemberOf:Symbol) 
-                                  and:[aSymbol match:aLiteral]
-                            ] ifNone:nil) notNil
+                            m referencesGlobalMatching:aSymbol
+"/                            (m literalsDetect:[:aLiteral|
+"/                                (aLiteral isMemberOf:Symbol) 
+"/                                  and:[aSymbol match:aLiteral]
+"/                            ] ifNone:nil) notNil
                        ].
     ] ifFalse:[
         "
@@ -1008,9 +1009,10 @@
         ].
 
         searchBlock := [:c :m :s |
-                            (m literalsDetect:[:aLiteral|
-                                (sym == aLiteral) 
-                            ] ifNone:nil) notNil
+                            m referencesGlobal:sym
+"/                            (m literalsDetect:[:aLiteral|
+"/                                (sym == aLiteral) 
+"/                            ] ifNone:nil) notNil
                        ].
     ].
 
@@ -1029,9 +1031,9 @@
     ].
     ^ browser
 
-    "Modified: 24.6.1996 / 14:39:07 / stefan"
-    "Created: 31.10.1996 / 14:45:08 / cg"
-    "Modified: 31.10.1996 / 14:46:07 / cg"
+    "Modified: / 24.6.1996 / 14:39:07 / stefan"
+    "Created: / 31.10.1996 / 14:45:08 / cg"
+    "Modified: / 9.11.1999 / 17:04:30 / cg"
 !
 
 browseForSymbol:aSymbol title:title warnIfNone:doWarn
@@ -2092,6 +2094,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.97 1999-10-04 10:48:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.98 1999-11-09 17:01:16 cg Exp $'
 ! !
 SystemBrowser initialize!