'From etoys4.0 of 5 November 2008 [latest update: #2319] on 27 September 2009 at 3:00:53 pm'!
"Change Set:		suffixArrowOnFn-sw
Date:			28 September 2009
Author:			Scott Wallace

Addresses SQ-450 - 'missing expand-arrow'.

Supply parentheses around 'bearing to' and 'distance to' tiles when they are dropped  into a script, so that the resulting numeric entities will have  extension arrows, allowing further arithmetic with the result of the function computations."!


!PhraseTileMorph methodsFor: 'dropping/grabbing' stamp: 'sw 9/27/2009 14:53'!
justDroppedInto: newOwner event: evt
	"Phrase tiles only auto-expand if they originate from viewers.  Any phrase tile, once dropped, loses its auto-phrase-expansion thing"

	(justGrabbedFromViewer = true and: [newOwner isKindOf: Viewer]) ifTrue: [
		self formerPosition ifNotNil: [
			^ self vanishAfterSlidingTo: self formerPosition event: evt
		].
	].
	justGrabbedFromViewer _ false.
	super justDroppedInto: newOwner event: evt.

	((owner isKindOf: TilePadMorph) and: [submorphs size = 3] and: [#(bearingTo: distanceToPlayer:) includes:  submorphs second operatorOrExpression])
		ifTrue:
			[owner wrapInFunction.
			owner owner operator: #grouped wording: '()'  helpString: 'parenthesized' translated pad: owner.
			owner scriptEdited]! !