--- a/HScroller.st	Sat Jan 08 18:31:31 1994 +0100
+++ b/HScroller.st	Thu Jan 13 01:18:51 1994 +0100
@@ -24,7 +24,7 @@
 
 the scroller part of a horizontal scrollbar
 
-$Header: /cvs/stx/stx/libwidg/Attic/HScroller.st,v 1.3 1993-10-13 02:48:01 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/HScroller.st,v 1.4 1994-01-13 00:16:13 claus Exp $
 written spring/summer 89 by claus
 '!
 
@@ -85,6 +85,8 @@
                                  toX:thumbLeft y:top
                                width:tW height:tH.
 
+                self catchExpose.
+
                 oldLeft > thumbLeft ifTrue:[
                     delta := oldLeft - thumbLeft.
                     oldLeft > thumbRight ifTrue:[
@@ -104,9 +106,7 @@
                                               width:delta height:tH
                     ]
                 ].
-                "View3D ifTrue:[ "
-                    self waitForExpose
-                "] "
+                self waitForExpose
             ]
         ]
     ]