--- a/TextView.st	Wed Sep 20 15:30:26 2006 +0200
+++ b/TextView.st	Thu Sep 21 16:53:38 2006 +0200
@@ -2701,7 +2701,7 @@
 
     |ign|
 
-    ign := lastSearchIgnoredCase ? false.
+    ign := lastSearchIgnoredCase ? LastSearchIgnoredCase ? true.
 
     self setSearchPattern.
     lastSearchPattern notNil ifTrue:[
@@ -2716,8 +2716,8 @@
         ]
     ]
 
-    "Modified: / 3.5.1999 / 15:00:28 / cg"
-    "Created: / 3.5.1999 / 15:02:16 / cg"
+    "Created: / 03-05-1999 / 15:02:16 / cg"
+    "Modified: / 21-09-2006 / 16:47:57 / cg"
 !
 
 searchBwd
@@ -2730,7 +2730,7 @@
         ^ self.
     ].
 
-    ign := lastSearchIgnoredCase ? false.
+    ign := lastSearchIgnoredCase ? LastSearchIgnoredCase ? true.
 
     self setSearchPattern.
     lastSearchPattern isNil ifTrue:[
@@ -2747,17 +2747,17 @@
             ignoreCase:ign
     ]
 
-    "Modified: / 3.5.1999 / 15:00:28 / cg"
+    "Modified: / 21-09-2006 / 16:48:08 / cg"
 !
 
 searchBwd:pattern
     "do a backward search"
 
     self searchBwd:pattern ifAbsent:[self showNotFound].
-    lastSearchIgnoredCase := false.
+"/    lastSearchIgnoredCase := false.
     lastSearchPattern := pattern string
 
-    "Modified: / 6.3.1999 / 23:46:40 / cg"
+    "Modified: / 21-09-2006 / 16:48:29 / cg"
 !
 
 searchBwd:pattern ifAbsent:aBlock
@@ -3197,7 +3197,7 @@
         ^ self.
     ].
 
-    ign := lastSearchIgnoredCase ? false.
+    ign := lastSearchIgnoredCase ? LastSearchIgnoredCase ? true.
 
     selectStyle == #wordLeft ifTrue:[
         "
@@ -3223,17 +3223,17 @@
             ignoreCase:ign
     ]
 
-    "Modified: / 3.5.1999 / 15:00:40 / cg"
+    "Modified: / 21-09-2006 / 16:49:02 / cg"
 !
 
 searchFwd:pattern
     "do a forward search"
 
     self searchFwd:pattern ifAbsent:[self showNotFound].
-    lastSearchIgnoredCase := false.
+"/    lastSearchIgnoredCase := false.
     lastSearchPattern := pattern string
 
-    "Modified: / 6.3.1999 / 23:46:53 / cg"
+    "Modified: / 21-09-2006 / 16:52:04 / cg"
 !
 
 searchFwd:pattern ifAbsent:aBlock
@@ -3241,16 +3241,17 @@
 
     |pos startLine startCol|
 
-    pos :=  self startPositionForSearchForward.
+    pos := self startPositionForSearchForward.
     startLine := pos y.
     startCol := pos x.
 
     self 
-        searchForwardFor:pattern startingAtLine:startLine col:startCol
+        searchForwardFor:pattern 
+        startingAtLine:startLine col:startCol
         ifFound:[:line :col | self showMatch:pattern atLine:line col:col]
         ifAbsent:aBlock
 
-    "Modified: 13.9.1997 / 01:05:35 / cg"
+    "Modified: / 21-09-2006 / 16:51:28 / cg"
 !
 
 searchFwd:pattern ignoreCase:ign
@@ -3896,7 +3897,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.271 2006-09-18 13:10:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.272 2006-09-21 14:53:38 cg Exp $'
 ! !
 
 TextView initialize!