--- a/TextView.st	Fri Jul 21 12:23:25 2000 +0200
+++ b/TextView.st	Fri Jul 21 17:54:55 2000 +0200
@@ -2548,6 +2548,13 @@
     "Modified: / 6.3.1999 / 23:47:36 / cg"
 !
 
+setSearchPattern:aString ignoreCase:aBoolean
+    "set the searchpattern and caseIgnore for future searches"
+
+    self setSearchPattern:aString.
+    lastSearchIgnoredCase := aBoolean.
+!
+
 showMatch:pattern atLine:line col:col
     "after a search, highlight the matched pattern.
      The code below needs a rewrite to take care of match-characters
@@ -2982,5 +2989,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.153 2000-05-23 07:49:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.154 2000-07-21 15:54:55 cg Exp $'
 ! !