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