ListView.st
changeset 4712 f86efc6886f2
parent 4699 0f71ee2376a8
child 4732 a5421be068fc
--- a/ListView.st	Sat Aug 31 21:29:52 2013 +0200
+++ b/ListView.st	Sat Aug 31 21:30:56 2013 +0200
@@ -4526,12 +4526,12 @@
                         lineString := lineString asString string.
                         lineString isString ifTrue:[
                             "/ first a crude check ...
-                            (p match:lineString ignoreCase:ignCase) ifTrue:[
+                            (p match:lineString caseSensitive:ignCase not) ifTrue:[
                                 "/ ok, there it is; look at which position
                                 col := lineString
                                         findMatchString:realPattern
                                         startingAt:col
-                                        ignoreCase:ignCase
+                                        caseSensitive:ignCase not
                                         ifAbsent:0.
                                 col ~~ 0 ifTrue:[
                                     ^ block1 value:lnr value:col.
@@ -4930,10 +4930,10 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.375 2013-08-30 19:47:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.376 2013-08-31 19:30:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.375 2013-08-30 19:47:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.376 2013-08-31 19:30:56 cg Exp $'
 ! !