--- a/WindowGroup.st	Thu Apr 12 16:56:42 2018 +0200
+++ b/WindowGroup.st	Fri Apr 13 12:40:01 2018 +0200
@@ -1899,32 +1899,30 @@
 
     |sensor|
 
-    (sensor := mySensor) isNil ifTrue:[
-        ^ self
-    ].
-    (sensor damageCount ~~ 0) ifTrue:[
-        WindowGroupQuery answer:self do:[
-            |event view|
-
-            [(event := sensor nextDamageEventFor:aViewOrNil) notNil] whileTrue:[
-                (views notNil or:[topViews notNil]) ifTrue:[
-                    view := event view.
-                    (aViewOrNil isNil or:[aViewOrNil == view]) ifTrue:[
-                        LastEventQuery answer:event do:[
-                            (self executePreEventHooksFor:event) ifFalse:[
-                                "/
-                                "/ if the view is no longer shown (iconified or closed),
-                                "/ this is a leftover event and ignored.
-                                "/
-                                "/ could this ever be a non-damage ?
-                                "/
-                                (view notNil and:[view shown or:[event isDamage not]]) ifTrue:[
-                                    view dispatchEvent:event withFocusOn:nil delegate:true. 
-                                ].
+    (sensor := mySensor) isNil ifTrue:[^ self].
+    sensor hasDamage ifFalse:[^ self].
+
+    WindowGroupQuery answer:self do:[
+        |event view|
+
+        [(event := sensor nextDamageEventFor:aViewOrNil) notNil] whileTrue:[
+            (views notNil or:[topViews notNil]) ifTrue:[
+                view := event view.
+                (aViewOrNil isNil or:[aViewOrNil == view]) ifTrue:[
+                    LastEventQuery answer:event do:[
+                        (self executePreEventHooksFor:event) ifFalse:[
+                            "/
+                            "/ if the view is no longer shown (iconified or closed),
+                            "/ this is a leftover event and ignored.
+                            "/
+                            "/ could this ever be a non-damage ?
+                            "/
+                            (view notNil and:[view shown or:[event isDamage not]]) ifTrue:[
+                                view dispatchEvent:event withFocusOn:nil delegate:true. 
                             ].
-                            self executePostEventHooksFor:event.
                         ].
-                    ]
+                        self executePostEventHooksFor:event.
+                    ].
                 ]
             ]
         ]
@@ -1932,7 +1930,7 @@
 
     "Created: / 03-12-1998 / 14:01:39 / cg"
     "Modified: / 05-02-1999 / 22:26:44 / cg"
-    "Modified: / 11-04-2018 / 11:22:44 / stefan"
+    "Modified (format): / 13-04-2018 / 12:36:58 / stefan"
 !
 
 processRealExposeEvents
@@ -1955,7 +1953,7 @@
     |sensor|
 
     (sensor := mySensor) isNil ifTrue:[^ self].
-    sensor damageCount == 0 ifTrue:[^ self].
+    sensor hasDamage ifFalse:[^ self].
 
     WindowGroupQuery answer:self do:[
         |event|
@@ -1989,7 +1987,7 @@
 
     "Created: / 02-07-1997 / 14:32:19 / cg"
     "Modified: / 05-04-1998 / 11:35:43 / cg"
-    "Modified: / 11-04-2018 / 11:22:52 / stefan"
+    "Modified: / 13-04-2018 / 12:29:20 / stefan"
 !
 
 repairDamage