author | Claus Gittinger <cg@exept.de> |
Mon, 11 May 2009 10:54:14 +0200 | |
changeset 2513 | 1c2ac34566ab |
parent 2512 | 86e433bf6e7a |
child 2514 | faf45b01db30 |
UIObjectView.st | file | annotate | diff | comparison | revisions |
--- a/UIObjectView.st Mon May 11 10:33:37 2009 +0200 +++ b/UIObjectView.st Mon May 11 10:54:14 2009 +0200 @@ -1525,7 +1525,9 @@ (aView shown and:[theDamages notEmpty]) ifFalse:[ ^ self ]. - aView components notEmptyOrNil ifTrue:[ self halt ]. + aView components notEmptyOrNil ifTrue:[ + aView invalidate + ]. aView subViews notNil ifTrue:[ aView subViews reverseDo:[:v| self recursiveRepair:theDamages startIn:v ]. theDamages isEmpty ifTrue:[ ^ self ].