--- a/Tools__ViewTreeModel.st	Sat Sep 06 13:27:09 2008 +0200
+++ b/Tools__ViewTreeModel.st	Mon Oct 06 08:31:58 2008 +0200
@@ -595,7 +595,7 @@
                 damages add:handle
             ]
         ].
-        rootView clippedByChildren:false.
+        "/ rootView clippedByChildren:false.
 
         damages do:[:el|
             x := el left.
@@ -606,7 +606,7 @@
             rootView clearRectangleX:x y:y width:w height:h.
             rootView         exposeX:x y:y width:w height:h.
         ].
-        rootView clippedByChildren:true.
+        "/ rootView clippedByChildren:true.
 
         (subViews := rootView subViews) notNil ifTrue:[
             subViews reverseDo:[:v| self recursiveRepair:damages startIn:v relativeTo:rootView ].