SystemBrowser.st
changeset 13438 06f6d5fc73ef
parent 13365 58156ff25996
child 13491 b3afe831ff0a
child 13525 a8195f61d4f2
--- 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 $'
 ! !