--- a/DisplaySurface.st	Thu Feb 26 12:32:01 2004 +0100
+++ b/DisplaySurface.st	Thu Feb 26 12:43:05 2004 +0100
@@ -1202,6 +1202,7 @@
      rect x y w h delegatedEvent rgn|
 
     type == #damage ifTrue:[
+        "/ OLDdamage scheme - this will vanish
         self shown ifTrue:[
             rect := argArray.
             x := rect left.
@@ -1218,18 +1219,21 @@
     ].
 
     type == #newDamage ifTrue:[
+        "/ New damage scheme
         rgn := updateRegion.
         updateRegion := nil.
         self shown ifTrue:[
-            rgn do:[:rect |
-                x := rect left.
-                y := rect top.
-                w := rect width.
-                h := rect height.
-                transformation notNil ifTrue:[
-                    self deviceExposeX:x y:y width:w height:h
-                ] ifFalse:[
-                    self exposeX:x y:y width:w height:h
+            rgn notNil ifTrue:[
+                rgn do:[:rect |
+                    x := rect left.
+                    y := rect top.
+                    w := rect width.
+                    h := rect height.
+                    transformation notNil ifTrue:[
+                        self deviceExposeX:x y:y width:w height:h
+                    ] ifFalse:[
+                        self exposeX:x y:y width:w height:h
+                    ]
                 ]
             ]
         ].
@@ -2369,7 +2373,7 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.105 2004-02-26 11:27:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.106 2004-02-26 11:43:05 cg Exp $'
 ! !
 
 DisplaySurface initialize!