# HG changeset patch
# User ca
# Date 974705425 -3600
# Node ID 9255d2e6226b072824cc145eda61366ef97526f9
# Parent  daaf701ab6a24d9dd76e2c912b063eb2af38f860
checkin from browser

diff -r daaf701ab6a2 -r 9255d2e6226b UIObjectView.st
--- a/UIObjectView.st	Sun Nov 19 17:18:04 2000 +0100
+++ b/UIObjectView.st	Mon Nov 20 08:30:25 2000 +0100
@@ -1321,7 +1321,7 @@
      height     "{ Class:SmallInteger }"
      size       "{ Class:SmallInteger }"
     |
-    aView isInputOnly ifTrue:[^ self].
+    aView isInputOnly ifTrue:[^ self ].
 
     (aView shown and:[theDamages notEmpty]) ifFalse:[ ^ self ].
 
@@ -1416,11 +1416,9 @@
     (selectionHiddenLevel ~~ 0 or:[something isNil]) ifTrue:[
         ^ self
     ].
+
     damages := OrderedCollection new.
 
-    (oldClipped := clipChildren) ifFalse:[
-        self clippedByChildren:(clipChildren := true)
-    ].
 
     self forEach:something do:[:v|
         self handlesOf:v do:[:aDamage :wht|
@@ -1437,11 +1435,19 @@
             damages add:aDamage
         ]
     ].
-    self recursiveRepair:damages startIn:self.
+
+    damages do:[:el| self clearRectangle:el ].
+
+    (oldClipped := clipChildren) ifFalse:[
+        self clippedByChildren:(clipChildren := true)
+    ].
+    self subViews do:[:v| self recursiveRepair:damages startIn:v].
 
     oldClipped ~~ clipChildren ifTrue:[
         self clippedByChildren:(clipChildren := oldClipped).
     ].
+    device sync.
+    device flush.
 ! !
 
 !UIObjectView methodsFor:'testing'!