equal
deleted
inserted
replaced
722 wasClipped ifTrue:[ |
722 wasClipped ifTrue:[ |
723 self clippedByChildren:(clipChildren := true). |
723 self clippedByChildren:(clipChildren := true). |
724 ]. |
724 ]. |
725 ! |
725 ! |
726 |
726 |
727 minSetOfSuperViews:setOfViews |
727 minClosedViewSetFor:setOfViews |
|
728 "return the minimum closure for a given set of view; |
|
729 That is the minimum set of views which contains the given set of views. |
|
730 Concrete: all subviews from setOfViews of which any superView is already in the set |
|
731 is excluded from the result" |
|
732 |
728 setOfViews isCollection ifFalse:[ |
733 setOfViews isCollection ifFalse:[ |
729 setOfViews notNil ifTrue:[^ Array with:setOfViews]. |
734 setOfViews notNil ifTrue:[^ Array with:setOfViews]. |
730 ^ nil |
735 ^ nil |
731 ]. |
736 ]. |
732 ^ setOfViews |
737 ^ setOfViews |
1341 selectionHiddenLevel := selectionHiddenLevel + 1. |
1346 selectionHiddenLevel := selectionHiddenLevel + 1. |
1342 |
1347 |
1343 aBlock ensure:[ |
1348 aBlock ensure:[ |
1344 selectionHiddenLevel == 1 ifTrue:[ |
1349 selectionHiddenLevel == 1 ifTrue:[ |
1345 setOfSuperViewsSizeChanged notEmpty ifTrue:[ |
1350 setOfSuperViewsSizeChanged notEmpty ifTrue:[ |
1346 coll := self minSetOfSuperViews:setOfSuperViewsSizeChanged. |
1351 coll := self minClosedViewSetFor:setOfSuperViewsSizeChanged. |
1347 coll do:[:aView| aView sizeChanged:nil]. |
1352 coll do:[:aView| aView sizeChanged:nil]. |
1348 setOfSuperViewsSizeChanged := IdentitySet new |
1353 setOfSuperViewsSizeChanged := IdentitySet new |
1349 ]. |
1354 ]. |
1350 selectionHiddenLevel := 0. |
1355 selectionHiddenLevel := 0. |
1351 self selectionDo:[:aView| self showSelected:aView]. |
1356 self selectionDo:[:aView| self showSelected:aView]. |