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