--- a/TextView.st	Sat May 07 12:39:55 2016 +0200
+++ b/TextView.st	Sat May 07 14:46:59 2016 +0200
@@ -4459,6 +4459,14 @@
     lastSearchIgnoredCase := aBoolean.
 !
 
+setSearchPattern:aString ignoreCase:ignoreCaseBoolean match:matchBoolean
+    "set the searchpattern and caseIgnore for future searches"
+
+    self setSearchPattern:aString.
+    lastSearchIgnoredCase := ignoreCaseBoolean.
+    lastSearchWasMatch := matchBoolean.
+!
+
 setSearchPatternWithMatchEscapes: match
     "set the searchpattern from the selection if there is one"