--- a/ListView.st	Sat Jan 08 18:31:31 1994 +0100
+++ b/ListView.st	Thu Jan 13 01:18:51 1994 +0100
@@ -35,7 +35,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.6 1994-01-08 17:27:30 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.7 1994-01-13 00:17:08 claus Exp $
 
 written spring 89 by claus
 '!
@@ -325,6 +325,7 @@
     visLine := self listLineToVisibleLine:lineNr.
     visLine notNil ifTrue:[
         srcY := topMargin + (visLine * fontHeight).
+        self catchExpose.
         self copyFrom:self x:textStartLeft y:srcY
                          toX:textStartLeft y:(srcY - fontHeight)
                        width:w height:((nLinesShown - visLine) * fontHeight).
@@ -332,7 +333,6 @@
         (nFullLinesShown ~~ nLinesShown) ifTrue:[
             self redrawVisibleLine:nLinesShown
         ].
-        exposePending := true.
         self waitForExpose
     ]
 !
@@ -1191,15 +1191,15 @@
 
         firstLineShown := firstLineShown + count.
         h := (fontHeight * count) + textStartTop.
+        self catchExpose.
         self copyFrom:self x:margin y:h
                          toX:margin y:textStartTop
                        width:w height:(height - m2 - h).
 
         self redrawFromVisibleLine:(nFullLinesShown - count + 1)
                                 to:nLinesShown.
+        self waitForExpose.
         self originChanged:(count negated).
-        exposePending := true.
-        self waitForExpose
     ]
 !
 
@@ -1233,13 +1233,13 @@
         w := w + leftMargin.
         firstLineShown := firstLineShown - count.
         h := (fontHeight * count) + topMargin.
+        self catchExpose.
         self copyFrom:self x:margin y:topMargin
                          toX:margin y:h
                        width:w height:(height - h - margin).
         self redrawFromVisibleLine:1 to:count.
+        self waitForExpose.
         self originChanged:(count negated).
-        exposePending := true.
-        self waitForExpose
     ]
 !