'From etoys4.0 of 9 October 2008 [latest update: #2253] on 24 August 2009 at 10:47:01 pm'!
"Change Set:		VanishingWithScaling-yo
Date:			24 August 2009
Author:			Yoshiki Ohshima

When old sliding logic is used, the scaled display update can be messed up.  Just inserting the forceToScreen at the last part fixes it."!


!Morph methodsFor: 'dropping/grabbing' stamp: 'yo 8/24/2009 22:45'!
vanishAfterSlidingTo: aPosition event: evt
	"Slide the receiver to the given position and then remove it."

	| aForm aWorld startPoint endPoint |
	aForm _ self imageForm offset: 0@0.
	(aWorld _ self world) ifNil: [^ self].  "Happens with interrupted replay"
	startPoint _ evt hand fullBounds origin.
	self delete.
	aWorld displayWorld.
	endPoint _ aPosition.
	aForm slideFrom: startPoint  to: endPoint nSteps: 12 delay: 15.
	"The OLPC Virtual Screen wouldn't notice the last update here."
	Display forceToScreen: (endPoint extent: self extent).
	Preferences soundsEnabled ifTrue: [TrashCanMorph playDeleteSound].
! !