'From etoys4.0 of 9 October 2008 [latest update: #2216] on 10 May 2009 at 6:41:27 pm'!
"Change Set:		hideHaloAfterDup-kfr
Date:			10 May 2009
Author:			Karl Ramberg

A dropped SelectionMorph still showed its halo, which could give nasty errors if a handle was clicked"!


!SelectionMorph methodsFor: 'dropping/grabbing' stamp: 'kfr 5/10/2009 18:39'!
justDroppedInto: newOwner event: evt
	"This message is sent to a dropped morph after it has been dropped on -- and been accepted by -- a drop-sensitive morph"

	selectedItems isEmpty ifTrue:
		["Hand just clicked down to draw out a new selection"
		^ self extendByHand: evt hand].
	dupLoc ifNotNil: [dupDelta _ self position - dupLoc].
	selectedItems reverseDo: [:m | 
		WorldState addDeferredUIMessage:
			[m referencePosition: (newOwner localPointToGlobal: m referencePosition).
			newOwner handleDropMorph:
				(DropEvent new setPosition: evt cursorPoint contents: m hand: evt hand)] fixTemps].
	selectedItems _ nil.
	self removeHalo. 
	self halo visible:false. 
	self delete.
	evt wasHandled: true! !