[Etoys] [FIX]ObjectsTool drag and drop

[karl]

When you pull out a morph from the ObjectsTool you don't want to lose 
the morph because the you drop it on top of the ObjectsTool.

Karl
-------------- next part --------------
'From OLPC2.0 of ''24 October 2006'' [latest update: #1133] on 1 December 2006 at 12:06:24 am'!

!PartsBin methodsFor: 'dropping/grabbing' stamp: 'kfr 12/1/2006 00:04'!
acceptDroppingMorph: dropped event: evt
	(self owner isKindOf: ObjectsTool) ifTrue:[^ self world acceptDroppingMorph: dropped event: evt.].
	(dropped hasProperty: #beFullyVisibleAfterDrop) ifTrue: [dropped vanishAfterSlidingTo: dropped formerPosition event: evt.
	^ self
	].
	^ super acceptDroppingMorph: dropped event: evt.
! !