--- a/TextView.st	Mon Oct 19 10:52:05 2009 +0200
+++ b/TextView.st	Mon Oct 19 16:37:30 2009 +0200
@@ -401,12 +401,12 @@
               comboList: patternList
             )
            (CheckBoxSpec
-              label: 'Ignore Case'
+              label: 'Case Sensitive'
               name: 'ignoreCaseCheckBox'
               layout: (LayoutFrame 3 0.0 54 0 -3 1.0 77 0)
               level: 0
               tabable: true
-              model: ignoreCase
+              model: caseSensitive
               translateLabel: true
             )
            (CheckBoxSpec
@@ -2018,7 +2018,7 @@
     modal := (UserPreferences current searchDialogIsModal).   "/ thats experimental
 
     ign := lastSearchIgnoredCase ? LastSearchIgnoredCase ? true.
-    caseHolder := ign asValue.
+    caseHolder := ign not asValue.
 
     match := lastSearchWasMatch ? LastSearchWasMatch ? false.
     matchHolder := match asValue.
@@ -2049,7 +2049,7 @@
     search := [:fwd |
         "/ clear the autosearch action, when the first pattern is searched for
         searchAction := nil.
-        self search:patternHolder value ignoreCase:caseHolder value match: matchHolder value forward:fwd.
+        self search:patternHolder value ignoreCase:(caseHolder value not) match: matchHolder value forward:fwd.
     ].
 
     bindings := IdentityDictionary new.
@@ -2061,7 +2061,7 @@
         bindings at:#nextAction put:[search value:true.  "searchBox doAccept."].
         bindings at:#prevAction put:[search value:false. "fwd := false. searchBox doAccept."].
     ].
-    bindings at:#ignoreCase put:caseHolder.
+    bindings at:#caseSensitive put:caseHolder.
     bindings at:#match put:matchHolder.
     bindings at:#patternList put:LastSearchPatterns.
 
@@ -4290,11 +4290,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.306 2009-10-16 09:52:56 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.307 2009-10-19 14:37:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.306 2009-10-16 09:52:56 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.307 2009-10-19 14:37:30 cg Exp $'
 ! !
 
 TextView initialize!