equal
deleted
inserted
replaced
1523 | |
1523 | |
1524 aView isInputOnly ifTrue:[^ self ]. |
1524 aView isInputOnly ifTrue:[^ self ]. |
1525 |
1525 |
1526 (aView shown and:[theDamages notEmpty]) ifFalse:[ ^ self ]. |
1526 (aView shown and:[theDamages notEmpty]) ifFalse:[ ^ self ]. |
1527 |
1527 |
1528 aView components notEmptyOrNil ifTrue:[ self halt ]. |
1528 aView components notEmptyOrNil ifTrue:[ |
|
1529 aView invalidate |
|
1530 ]. |
1529 aView subViews notNil ifTrue:[ |
1531 aView subViews notNil ifTrue:[ |
1530 aView subViews reverseDo:[:v| self recursiveRepair:theDamages startIn:v ]. |
1532 aView subViews reverseDo:[:v| self recursiveRepair:theDamages startIn:v ]. |
1531 theDamages isEmpty ifTrue:[ ^ self ]. |
1533 theDamages isEmpty ifTrue:[ ^ self ]. |
1532 ]. |
1534 ]. |
1533 |
1535 |