--- a/SystemBrowser.st Sat Aug 31 19:41:47 2013 +0200
+++ b/SystemBrowser.st Sat Aug 31 21:24:28 2013 +0200
@@ -2676,7 +2676,7 @@
('Browser [info]: no source for ' , m printString) infoPrintCR.
false
] ifFalse:[
- s match:src ignoreCase:ignoreCase
+ s match:src caseSensitive:ignoreCase not
]
]
] ifFalse:[
@@ -4329,7 +4329,7 @@
matchCheck := [:aResourceName | true ]
] ifFalse:[
doMatch ifTrue:[
- matchCheck := [:aResourceName | aStringOrEmpty match:aResourceName ignoreCase:ignoreCase]
+ matchCheck := [:aResourceName | aStringOrEmpty match:aResourceName caseSensitive:ignoreCase not]
] ifFalse:[
ignoreCase ifTrue:[
lcSearchString := aStringOrEmpty asLowercase.
@@ -4623,7 +4623,8 @@
ifNone:nil) notNil
].
inLiterals
- and:[ method messagesSent contains:[:anySelector | aSelectorString match:anySelector ignoreCase:ignoreCase] ]
+ and:[ method messagesSent
+ contains:[:anySelector | aSelectorString match:anySelector caseSensitive:ignoreCase not] ]
].
] ifFalse:[
searchBlock := [:class :methodArg :s |
@@ -4651,7 +4652,8 @@
ifNone:nil) notNil
].
inLiterals
- and:[ method messagesSent contains:[:anySelector | aSelectorString match:anySelector ignoreCase:ignoreCase] ]
+ and:[ method messagesSent
+ contains:[:anySelector | aSelectorString match:anySelector caseSensitive:ignoreCase not] ]
].
].
] ifFalse:[
@@ -5026,7 +5028,7 @@
('Browser [info]: no source for ' , m printString) infoPrintCR.
false
] ifFalse:[
- s match:src ignoreCase:ignoreCase
+ s match:src caseSensitive:ignoreCase not
]
]
] ifFalse:[
@@ -5039,7 +5041,7 @@
('Browser [info]: no source for ' , m printString) infoPrintCR.
false
] ifFalse:[
- (src findString:aString ignoreCase:ignoreCase) ~~ 0
+ (src findString:aString caseSensitive:ignoreCase not) ~~ 0
]
]
].
@@ -5064,7 +5066,7 @@
lits contains:[:lit |
lit isString
and:[lit isSymbol not
- and:[s match:lit ignoreCase:ignoreCase]]
+ and:[s match:lit caseSensitive:ignoreCase not]]
]
]
] ifFalse:[
@@ -6441,15 +6443,15 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.334 2013-08-31 19:24:28 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.334 2013-08-31 19:24:28 cg Exp $'
!
version_SVN
- ^ '$Id: SystemBrowser.st,v 1.333 2013-08-25 16:51:32 cg Exp $'
+ ^ '$Id: SystemBrowser.st,v 1.334 2013-08-31 19:24:28 cg Exp $'
! !