UIObjectView.st
changeset 2535 961e4b080571
parent 2530 73efe0a84f4b
child 2536 408cba0cbef4
--- a/UIObjectView.st	Mon May 18 12:12:16 2009 +0200
+++ b/UIObjectView.st	Mon May 18 13:57:41 2009 +0200
@@ -1001,12 +1001,21 @@
 endResize
     "cleanup after object resize
     "
-    |object|
+    |object savedSelection|
 
     object := resizeData object.
     resizeData := nil.
 
     self invertOutlineOf:object.
+
+    "/ temporarily hide the selection, in order to allow the container to move the
+    "/ element around...
+    savedSelection := selection.
+    self selection:nil.
+    "/ handle any expose events (for subcomponents) before
+    "/ redrawing the handles.
+    self windowGroup processExposeEvents.
+
     self setDefaultActions.
     self elementChangedSize:object.
 
@@ -1017,11 +1026,13 @@
         self windowGroup processExposeEvents
     ].
 
-    self setSelection:object withRedraw:true.
-    self forEach:self selection do:[:aView |
+    self forEach:savedSelection do:[:aView |
         self recomputeShapeIfTransparentBox:aView.
     ].
     self layoutChanged.
+
+    self selection:savedSelection.
+    self setSelection:object withRedraw:true.
 !
 
 layoutChanged