equal
deleted
inserted
replaced
744 |
744 |
745 setOfViews isCollection ifFalse:[ |
745 setOfViews isCollection ifFalse:[ |
746 setOfViews notNil ifTrue:[^ Array with:setOfViews]. |
746 setOfViews notNil ifTrue:[^ Array with:setOfViews]. |
747 ^ nil |
747 ^ nil |
748 ]. |
748 ]. |
749 ^ setOfViews |
749 ^ setOfViews reject:[:aView| (setOfViews contains:[:v | aView isComponentOf:v]) ] |
750 select:[:aView| |
|
751 (setOfViews contains:[:v | aView isComponentOf:v]) not |
|
752 ] |
|
753 ! |
750 ! |
754 |
751 |
755 redrawObjectsInVisible:redrawFrame |
752 redrawObjectsInVisible:redrawFrame |
756 "my objects are views - they redraw themself. |
753 "my objects are views - they redraw themself. |
757 - no longer - all non-views MUST be redrawn." |
754 - no longer - all non-views MUST be redrawn." |
3231 ! |
3228 ! |
3232 |
3229 |
3233 version_CVS |
3230 version_CVS |
3234 ^ '$Header$' |
3231 ^ '$Header$' |
3235 ! ! |
3232 ! ! |
|
3233 |