--- a/WindowGroup.st	Wed Feb 25 23:47:51 2004 +0100
+++ b/WindowGroup.st	Thu Feb 26 12:24:53 2004 +0100
@@ -1796,7 +1796,7 @@
      This is required after a scroll operation,
      to wait for either a noExpose or a real expose."
 
-    |event view rect x y w h sensor thisProcess|
+    |event view sensor thisProcess|
 
     (sensor := mySensor) isNil ifTrue:[^ self].
     sensor damageCount == 0 ifTrue:[^ self].
@@ -1822,18 +1822,9 @@
                     "/ this is a leftover event and ignored.
                     "/
                     view shown ifTrue:[
-                        rect := event rectangle.
-                        x := rect left.
-                        y := rect top.
-                        w := rect width.
-                        h := rect height.
                         LastActiveGroup := self.
                         LastActiveProcess := thisProcess.
-                        view transformation notNil ifTrue:[
-                            view deviceExposeX:x y:y width:w height:h
-                        ] ifFalse:[
-                            view exposeX:x y:y width:w height:h
-                        ]
+                        view dispatchEvent:event withFocusOn:nil delegate:true. 
                     ]
                 ].
                 self executePostEventHooksFor:event.
@@ -2740,7 +2731,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.257 2003-05-07 15:18:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.258 2004-02-26 11:24:53 cg Exp $'
 ! !
 
 WindowGroup initialize!