--- 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