'From etoys2.2 of 24 September 2007 [latest update: #1719] on 20 October 2007 at 4:48:50 pm'!
"Change Set:		support-sw
Date:			20 October 2007
Author:			Scott Wallace

Four little changes:
* Morph class >> newInHand, (ported from Moshi).
* PianoKeyboardMorph >> soundPlayingListAt: bulletproofed against index out of range.
* ScriptingTileHolder - refrains from locking its contents if contents consist only of a simple sound-constant tile.
* Adds accessor method for ExternalDropHandler>action, helpful in debugging."!


!ExternalDropHandler methodsFor: 'accessing' stamp: 'sw 10/18/2007 21:49'!
action
	"Answer the value of my action."

	^ action! !


!Morph class methodsFor: 'instance creation' stamp: 'sw 10/20/2007 02:17'!
newInHand
	"Hand the user a freshly-minted new instance of the receiver."

	^ self new openInHand ! !


!PianoKeyboardMorph methodsFor: 'accessing' stamp: 'sw 10/20/2007 02:30'!
soundPlayingListAt: anInteger
	"Answer the sound in my soundPlayingList at the given index; answer nil if the index is out of range."

	^ soundPlayingList at: anInteger ifAbsent: [nil]! !


!ScriptingTileHolder methodsFor: 'initialization' stamp: 'sw 10/20/2007 02:17'!
around: aTileScriptingElement
	"Make the receiver surround the given item, either a TileMorph or a PhraseTileMorph or something like a CompoundTIleMorph."

	self removeAllMorphs.
	self position: aTileScriptingElement position.
	self addMorph: aTileScriptingElement.
	(aTileScriptingElement isKindOf: SoundTile) ifFalse:
		[aTileScriptingElement lock]! !