1 Dec
2006
1 Dec
'06
12:10 a.m.
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
'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. ! !