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