--- a/Tools__StringSearchToolForTextView.st	Fri Oct 16 11:54:33 2009 +0200
+++ b/Tools__StringSearchToolForTextView.st	Fri Oct 16 11:55:03 2009 +0200
@@ -339,6 +339,17 @@
     self searchNextTextIncludingCurrentSelection: true.
     self setFocusToSearchTextView.
     self class lastMatch: self matchHolder value.
+!
+
+searchTextModifiedHolderChanged
+
+    |searchPattern|
+
+    super searchTextModifiedHolderChanged.
+
+    searchPattern := self searchText.
+"/    Transcript showCR: searchPattern.
+    textView setSearchPattern: searchPattern.
 ! !
 
 !StringSearchToolForTextView methodsFor:'initialization & release'!
@@ -385,7 +396,7 @@
 searchPreviousTextReachBeginning
     |message searchText match |
 
-    searchText := searchTextView contents.
+    searchText := self searchText.
     match := self matchHolder value.
 
     match ifTrue: [
@@ -413,7 +424,7 @@
 searchNextTextFromBeginning
     |searchText ignoreCase match absentBlock|
 
-    searchText := searchTextView contents.
+    searchText := self searchText.
     searchText isEmptyOrNil ifTrue:[^self].
     self textView isNil ifTrue:[^ self].
     ignoreCase := self ignoreCase.
@@ -432,7 +443,7 @@
     |searchText ignoreCase  match absentBlock startCol startLine |
 
     self searchTextStarted.
-    searchText := searchTextView contents.
+    searchText := self searchText.
     searchText isEmptyOrNil ifTrue:[^self].
     self textView isNil ifTrue:[^ self].
     ignoreCase := self ignoreCase.
@@ -457,7 +468,7 @@
     |searchText ignoreCase match absentBlock|
 
     self searchTextStarted.
-    searchText := searchTextView contents.
+    searchText := self searchText.
     searchText isEmptyOrNil ifTrue:[^self].
     ignoreCase := self ignoreCase.
     self textView isNil ifTrue:[^ self].
@@ -473,7 +484,7 @@
 
     |searchText ignoreCase absentBlock startLine startCol|
 
-    searchText := searchTextView contents.
+    searchText := self searchText.
     searchText isEmptyOrNil ifTrue:[^self].
     ignoreCase := self ignoreCase.
     self textView isNil ifTrue:[^ self].
@@ -491,9 +502,9 @@
 !StringSearchToolForTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.14 2009-10-12 13:26:37 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.15 2009-10-16 09:55:03 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.14 2009-10-12 13:26:37 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.15 2009-10-16 09:55:03 fm Exp $'
 ! !