--- a/WindowSensor.st	Wed Aug 22 12:29:25 2018 +0200
+++ b/WindowSensor.st	Wed Aug 22 12:58:11 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -2121,6 +2119,11 @@
     |sz  "{ Class: SmallInteger }" 
      aDamageEvent oldDamageEvent oldDamageEventIndex anyOtherEventPending lastNilIndex|
 
+    "/ TraceDamage == aView ifTrue:[
+    "/     Transcript showCR:'-----------'.
+    "/     thisContext fullPrintAllOn:Transcript.
+    "/ ].    
+
     "/ NEWDAMAGE handling - experimental;
     "/ comment these lines if you encounter trouble.
     sz := damage size.
@@ -2301,6 +2304,7 @@
     "Modified: / 20-01-2011 / 22:41:50 / cg"
     "Modified (comment): / 29-01-2018 / 14:53:16 / mawalch"
     "Modified: / 13-04-2018 / 14:30:13 / stefan"
+    "Modified: / 22-08-2018 / 12:42:34 / Claus Gittinger"
 !
 
 basicPushEvent:anEvent