--- a/TextView.st	Tue Sep 23 19:49:46 2003 +0200
+++ b/TextView.st	Tue Sep 23 19:51:13 2003 +0200
@@ -1790,7 +1790,7 @@
 
     |searchBox patternHolder caseHolder 
      pattern fwd ign initialString
-     bindings bldr searchAction modal|
+     bindings bldr search modal|
 
     searchAction := nil.
 
@@ -1819,7 +1819,7 @@
 
     fwd := true. 
 
-    searchAction := [:fwd |
+    search := [:fwd |
         pattern := patternHolder value.
         pattern := pattern string withoutSeparators. "/ is that a good idea ?
         pattern notEmpty ifTrue:[
@@ -1844,8 +1844,8 @@
         bindings at:#nextAction put:[searchBox doAccept.].
         bindings at:#prevAction put:[fwd := false. searchBox doAccept.].
     ] ifFalse:[
-        bindings at:#nextAction put:[searchAction value:true.  "searchBox doAccept."].
-        bindings at:#prevAction put:[searchAction value:false. "fwd := false. searchBox doAccept."].
+        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:#patternList put:LastSearchPatterns.
@@ -1868,7 +1868,7 @@
 
     modal ifTrue:[
         searchBox openDialog.
-        searchBox accepted ifTrue:[ searchAction value:fwd ].
+        searchBox accepted ifTrue:[ search value:fwd ].
     ] ifFalse:[
         (bldr componentAt:#nextButton) isReturnButton:false.
         (bldr componentAt:#cancelButton) 
@@ -3712,7 +3712,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.212 2003-09-23 17:49:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.213 2003-09-23 17:51:13 cg Exp $'
 ! !
 
 TextView initialize!