'From etoys2.3 of 28 November 2007 [latest update: #1889] on 1 February 2008 at 3:59:27 pm'!
"Change Set:		FixDismissViaSelection-yo
Date:			1 February 2008
Author:			Yoshiki Ohshima

If you delete multiple objects with SelectionMorph, the reference to the NewHandleMorph remains in hand and the block stored in NewHandleMorph causes a problem.  This changeset clears them upon deleting the handle."!


!HandMorph methodsFor: 'external dragging' stamp: 'yo 2/1/2008 15:54'!
handleDropOutMorph: aMorph

	aMorph ifNotNil: [
		self setProperty: #dragOutMorph toValue: aMorph.
	] ifNil: [
		self removeProperty: #dragOutMorph
	].
! !


!NewHandleMorph methodsFor: 'submorphs-add/remove' stamp: 'yo 2/1/2008 15:59'!
delete
	hand ifNotNil:[
		hand showTemporaryCursor: nil.
		hand handleDropOutMorph: nil.
	].
	super delete.! !