--- a/TextView.st	Mon Jun 11 11:20:36 2001 +0200
+++ b/TextView.st	Mon Jun 11 11:21:11 2001 +0200
@@ -2399,7 +2399,16 @@
 searchBwd:pattern ignoreCase:ign
     "do a backward search"
 
-    self searchBwd:pattern ignoreCase:ign ifAbsent:[self showNotFound].
+    self searchBwd:pattern 
+         ignoreCase:ign 
+         ifAbsent:[
+                    |sensor|
+
+                    (sensor := self sensor) notNil ifTrue:[
+                        sensor compressKeyPressEventsWithKey:#FindPrev.
+                    ].
+                    self showNotFound
+                  ].
     lastSearchIgnoredCase := ign.
     lastSearchPattern := pattern string
 
@@ -2669,7 +2678,17 @@
 searchFwd:pattern ignoreCase:ign
     "do a forward search"
 
-    self searchFwd:pattern ignoreCase:ign ifAbsent:[self showNotFound].
+    self 
+        searchFwd:pattern 
+        ignoreCase:ign 
+        ifAbsent:[
+                    |sensor|
+
+                    (sensor := self sensor) notNil ifTrue:[
+                        sensor compressKeyPressEventsWithKey:#FindNext.
+                    ].
+                    self showNotFound
+                 ].
     lastSearchIgnoredCase := ign.
     lastSearchPattern := pattern string
 
@@ -2769,11 +2788,11 @@
 
     savedCursor := cursor.
     [
-	self cursor:(Cursor cross).
-	self beep.
-	Processor activeProcess millisecondDelay:300.
+        self cursor:(Cursor cross).
+        self beep.
+        Processor activeProcess millisecondDelay:300.
     ] valueNowOrOnUnwindDo:[
-	self cursor:savedCursor
+        self cursor:savedCursor
     ]
 
     "Modified: 20.2.1997 / 12:49:27 / cg"
@@ -3191,5 +3210,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.162 2001-04-04 08:06:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.163 2001-06-11 09:21:11 cg Exp $'
 ! !