equal
deleted
inserted
replaced
691 self clippedByChildren:(clipChildren := true). |
691 self clippedByChildren:(clipChildren := true). |
692 ]. |
692 ]. |
693 ! |
693 ! |
694 |
694 |
695 minSetOfSuperViews:setOfViews |
695 minSetOfSuperViews:setOfViews |
696 |
|
697 setOfViews isCollection ifFalse:[ |
696 setOfViews isCollection ifFalse:[ |
698 setOfViews notNil ifTrue:[^ Array with:setOfViews] |
697 setOfViews notNil ifTrue:[^ Array with:setOfViews]. |
699 ifFalse:[^ nil] |
698 ^ nil |
700 ]. |
699 ]. |
701 ^ setOfViews select:[:aView| |
700 ^ setOfViews |
702 (setOfViews detect:[:v|aView isComponentOf:v] ifNone:nil) isNil |
701 select:[:aView| |
703 ] |
702 (setOfViews contains:[:v | aView isComponentOf:v]) not |
|
703 ] |
704 ! |
704 ! |
705 |
705 |
706 redrawObjectsInVisible:redrawFrame |
706 redrawObjectsInVisible:redrawFrame |
707 "my objects are views - they redraw themself" |
707 "my objects are views - they redraw themself" |
708 |
708 |