--- a/SynchronousWindowSensor.st	Fri Oct 12 19:07:47 2018 +0200
+++ b/SynchronousWindowSensor.st	Fri Oct 12 19:08:25 2018 +0200
@@ -78,12 +78,20 @@
 addDamage:aRectangle view:aView wakeup:doWakeup
     "forward as an expose for some view"
 
-    aView
-        dispatchEvent:#exposeX:y:width:height:
-        arguments:(Array with:aRectangle left 
-                         with:aRectangle top 
-                         with:aRectangle width
-                         with:aRectangle height)
+    aView dispatchEvent:
+            (WindowEvent::DamageEvent 
+                for:aView 
+                type:#'exposeX:y:width:height:' 
+                arguments:{ aRectangle left . 
+                            aRectangle top .
+                            aRectangle width .
+                            aRectangle height })
+"/    aView
+"/        dispatchEvent:#exposeX:y:width:height:
+"/        arguments:(Array with:aRectangle left 
+"/                         with:aRectangle top 
+"/                         with:aRectangle width
+"/                         with:aRectangle height)
 !
 
 exposeX:x y:y width:w height:h view:aView
@@ -91,8 +99,17 @@
 
     ignoreExposeEvents ~~ true ifTrue:[
         aView
-            dispatchEvent:#exposeX:y:width:height:
-            arguments:(Array with:x with:y with:w with:h)
+            dispatchEvent:
+                (WindowEvent::DamageEvent 
+                    for:aView 
+                    type:#'exposeX:y:width:height:' 
+                    arguments:{ x . 
+                                y .
+                                w .
+                                h })
+"/        aView
+"/            dispatchEvent:#exposeX:y:width:height:
+"/            arguments:(Array with:x with:y with:w with:h)
     ]
 !
 
@@ -109,8 +126,18 @@
     ].
 
     aView
-        dispatchEvent:#graphicsExposeX:y:width:height:final:
-        arguments:(Array with:x with:y with:w with:h with:final)
+        dispatchEvent:
+            (WindowEvent::DamageEvent 
+                for:aView 
+                type:#'graphicsExposeX:y:width:height:final:' 
+                arguments:{ x . 
+                            y .
+                            w .
+                            h .
+                            final })
+"/    aView
+"/        dispatchEvent:#graphicsExposeX:y:width:height:final:
+"/        arguments:(Array with:x with:y with:w with:h with:final)
 
     "Created: / 24.11.1995 / 19:16:38 / cg"
     "Modified: / 20.5.1998 / 22:57:32 / cg"