--- a/UIObjectView.st Fri Jan 25 10:28:43 2008 +0100
+++ b/UIObjectView.st Fri Jan 25 19:31:38 2008 +0100
@@ -724,7 +724,12 @@
].
!
-minSetOfSuperViews:setOfViews
+minClosedViewSetFor:setOfViews
+ "return the minimum closure for a given set of view;
+ That is the minimum set of views which contains the given set of views.
+ Concrete: all subviews from setOfViews of which any superView is already in the set
+ is excluded from the result"
+
setOfViews isCollection ifFalse:[
setOfViews notNil ifTrue:[^ Array with:setOfViews].
^ nil
@@ -1343,7 +1348,7 @@
aBlock ensure:[
selectionHiddenLevel == 1 ifTrue:[
setOfSuperViewsSizeChanged notEmpty ifTrue:[
- coll := self minSetOfSuperViews:setOfSuperViewsSizeChanged.
+ coll := self minClosedViewSetFor:setOfSuperViewsSizeChanged.
coll do:[:aView| aView sizeChanged:nil].
setOfSuperViewsSizeChanged := IdentitySet new
].