--- a/EditTextView.st	Sat Jan 08 18:31:31 1994 +0100
+++ b/EditTextView.st	Thu Jan 13 01:18:51 1994 +0100
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
             All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.8 1994-01-08 17:24:08 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.9 1994-01-13 00:15:09 claus Exp $
 
 written jun-89 by claus
 '!
@@ -326,9 +326,9 @@
                                  toX:textStartLeft y:(srcY + fontHeight)
                                width:w
                               height:((nLinesShown - visLine - 1) * fontHeight).
+                self catchExpose.
                 self redrawLine:lineNr.
                 self redrawLine:(lineNr + 1).
-                exposePending := true.
                 self waitForExpose
             ]
         ]
@@ -393,8 +393,8 @@
                          toX:textStartLeft y:dstY
                        width:w
                       height:((nLinesShown - visLine "- 1") * fontHeight).
+        self catchExpose.
         self redrawVisibleLine:visLine.
-        exposePending := true.
         self waitForExpose
     ]
 !
@@ -427,8 +427,8 @@
                              toX:textStartLeft y:dstY
                            width:w
                           height:(height - dstY).
+            self catchExpose.
             self redrawFromVisibleLine:visLine to:(visLine + nLines - 1).
-            exposePending := true.
             self waitForExpose
         ]
     ]
@@ -877,11 +877,11 @@
         self copyFrom:self x:textStartLeft y:srcY
                          toX:textStartLeft y:(srcY - fontHeight)
                        width:w height:((nLinesShown - visLine) * fontHeight).
+        self catchExpose.
         self redrawVisibleLine:nFullLinesShown.
         (nFullLinesShown ~~ nLinesShown) ifTrue:[
             self redrawVisibleLine:nLinesShown
         ].
-        exposePending := true.
         self waitForExpose
     ]
 !
@@ -1843,7 +1843,7 @@
 searchBwd:pattern
     "do the backward search"
 
-    self searchBackwardFor:pattern startingAtLine:cursorLine col:cursorCol
+    self searchBackwardFor:pattern startingAtLine:(cursorLine min:list size) col:cursorCol
     ifFound:[:line :col |
         self cursorLine:line col:col.
         self selectFromLine:line col:col