774     "

   774      send expose to each view - workaround....

   775     movedObject notNil ifTrue:[

   775     "

   776 	self invertOutlineOf:movedObject.

   776     |newSel|

   777 

   777 

   778 	movedObject size == 1 ifTrue:[

   778     movedObject isNil ifTrue:[^ self].

   779 	    movedObject := movedObject first

   779 

   780 	].

   780     movedObject size == 1 ifTrue:[ newSel := movedObject first ]

   781 	self setSelection:movedObject withRedraw:true.

   781                          ifFalse:[ newSel := movedObject ].

   782 	movedObject := nil.

   782     movedObject := nil.

   783 	self setDefaultActions.

   783 

   784 	self layoutChanged.

   784     self withSelectionHiddenDo:[

   785         self setSelection:newSel withRedraw:false.

   786 

   787         self allSubViewsDo:[:v|

   788             v shown ifTrue:[

   789                 v fill:v viewBackground.

   790                 v exposeX:0 y:0 width:v width height:v height.

   791             ].

   792         ].

   793 

   794         self setDefaultActions.

   795         self layoutChanged.