diff -r 0dd16168581b -r 06f6d5fc73ef SystemBrowser.st --- 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 $' ! !