Karl wrote:
When you have a Playfield/PasteUpMorph open in the world you had to be careful where you placed the ScriptEditorMorphs otherwise they would embed them self into the Playfield and some annoying cropping would occur. karl
Fixed issue with PhraseTileMorph embedding in same manner as ScriptEditorMorph.
karl
'From OLPC2.0 of ''24 October 2006'' [latest update: #1134] on 1 December 2006 at 8:02:04 pm'!
!PasteUpMorph methodsFor: 'dropping/grabbing' stamp: 'kfr 12/1/2006 19:30'! acceptDroppingMorph: dropped event: evt "The supplied morph, known to be acceptable to the receiver, is now to be assimilated; the precipitating event is supplied"
| mm tfm aMorph | aMorph _ self morphToDropFrom: dropped. self isWorldMorph ifTrue:["Add the given morph to this world and start stepping it if it wants to be." self addMorphFront: aMorph. (aMorph fullBounds intersects: self viewBox) ifFalse: [Beeper beep. aMorph position: self bounds center]] ifFalse:[ (dropped isKindOf: PhraseTileMorph) ifTrue:[^ self world acceptDroppingMorph: aMorph event: evt].(dropped isKindOf: ScriptEditorMorph) ifTrue:[self world acceptDroppingMorph: aMorph event: evt] ifFalse:[super acceptDroppingMorph: aMorph event: evt]].
aMorph submorphsDo: [:m | (m isKindOf: HaloMorph) ifTrue: [m delete]]. aMorph allMorphsDo: "Establish any penDown morphs in new world" [:m | m player ifNotNil: [m player getPenDown ifTrue: [((mm _ m player costume) notNil and: [(tfm _ mm owner transformFrom: self) notNil]) ifTrue: [self noteNewLocation: (tfm localPointToGlobal: mm referencePosition) forPlayer: m player]]]].
self isPartsBin ifTrue: [aMorph isPartsDonor: true. aMorph stopSteppingSelfAndSubmorphs. aMorph suspendEventHandler] ifFalse: [self world startSteppingSubmorphsOf: aMorph].
self presenter morph: aMorph droppedIntoPasteUpMorph: self.
self showingListView ifTrue: [self sortSubmorphsBy: (self valueOfProperty: #sortOrder). self currentWorld abandonAllHalos]! !