# HG changeset patch
# User ca
# Date 1196681120 -3600
# Node ID 0582767018d7829d610a9e6be7d8ce37197121a8
# Parent  bde4a7ef693aa241ce51e61c3f725d3ffa2c919c
endObjectMove - send expose to all - workaround drawing

diff -r bde4a7ef693a -r 0582767018d7 UIObjectView.st
--- a/UIObjectView.st	Mon Dec 03 10:57:40 2007 +0100
+++ b/UIObjectView.st	Mon Dec 03 12:25:20 2007 +0100
@@ -771,17 +771,28 @@
 
 endObjectMove
     "cleanup after object(s) move
+     send expose to each view - workaround....
     "
-    movedObject notNil ifTrue:[
-	self invertOutlineOf:movedObject.
-
-	movedObject size == 1 ifTrue:[
-	    movedObject := movedObject first
-	].
-	self setSelection:movedObject withRedraw:true.
-	movedObject := nil.
-	self setDefaultActions.
-	self layoutChanged.
+    |newSel|
+
+    movedObject isNil ifTrue:[^ self].
+
+    movedObject size == 1 ifTrue:[ newSel := movedObject first ]
+                         ifFalse:[ newSel := movedObject ].
+    movedObject := nil.
+
+    self withSelectionHiddenDo:[
+        self setSelection:newSel withRedraw:false.
+
+        self allSubViewsDo:[:v|
+            v shown ifTrue:[
+                v fill:v viewBackground.
+                v exposeX:0 y:0 width:v width height:v height.
+            ].
+        ].
+
+        self setDefaultActions.
+        self layoutChanged.
     ].
 !