'From Moshi of 3 March 2007 [latest update: #271] on 25 July 2007 at 1:48:38 am'!
"Change Set:		soundRecorderViewer-sw
Date:			25 July 2007
Author:			Scott Wallace

Adds control over record, stop, and play buttons of a sound recorder via new tiles in its viewer.

Cross-published from Moshi update 0272soundRecorderViewer-sw.
"!


!Player methodsFor: 'scripts-standard' stamp: 'sw 7/25/2007 01:41'!
playButtonHit
	"The play button was hit."

	 costume renderedMorph playButtonHit! !

!Player methodsFor: 'scripts-standard' stamp: 'sw 7/25/2007 01:41'!
recordButtonHit
	"The record button was hit."

	 costume renderedMorph recordButtonHit! !

!Player methodsFor: 'scripts-standard' stamp: 'sw 7/25/2007 01:41'!
stopButtonHit
	"The stop button was hit."

	 costume renderedMorph stopButtonHit! !


!RecordingControls class methodsFor: 'as yet unclassified' stamp: 'sw 7/25/2007 01:37'!
additionsToViewerCategories
	"Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories."

	^ #((#'sound recorder'
			((command recordButtonHit 'start recording')
			(command stopButtonHit 'stop recording or playback')
			(command playButtonHit 'go to previous page')
  )))! !


!StandardScriptingSystem methodsFor: '*WS-Sound-Override' stamp: 'sw 7/25/2007 01:38'!
wordingForOperator: aString
	"Answer the wording to be seen by the user for the given operator symbol/string"

	| toTest |
	toTest _ aString asString.
	#(	(append:				'include at end')
		(arrowheadsOnAllPens	'arrowheads on all pens')
		(beep:					'make sound')
		(bounce:				'bounce')
		(clearTurtleTrails		'clear pen trails')
		(clearOwnersPenTrails	'clear all pen trails')
		(colorSees				'color  sees')
		(color:sees:				'color sees')
		(doMenuItem:			'do menu item')
		(doScript:				'do')
		(forward:				'forward by')
		(goToRightOf:			'align after')
		(includeAtCursor:		'include at cursor')
		(isDivisibleBy:			'is divisible by')
		(liftAllPens				'lift all pens')
		(lowerAllPens			'lower all pens')
		(makeNewDrawingIn:	'start painting in')
		(max:					'max')
		(min:					'min')
		(moveToward:			'move toward')
		(noArrowheadsOnAllPens	'no arrowheads on pens')
		(overlapsAny			'overlaps any')
		(pauseAll:				'pause all')
		(pauseScript:			'pause script')
		(playButtonHit			'play')
		(prepend:				'include at beginning')
		(recordButtonHit			'start recording')
		(seesColor:				'is over color')
		(startAll:				'start all')
		(startScript:				'start script')
		(stopButtonHit			'stop')
		(stopProgramatically	'stop')
		(stopAll:					'stop all')
		(stopScript:				'stop script')
		(tellAllSiblings:			'tell all siblings')
		(tellSelfAndAllSiblings:	'send to all')
		(turn:					'turn by')
		(turnToward:				'turn toward')
		(wearCostumeOf:		'look like')

		(dial:					'dial to')
		(dialNumber				'dial number')

		(playSound:				'play frequency of')
		(stopSound				'stop sound')

		(soundPitch				'sound pitch')
		(soundLevel				'sound level')
		(soundListening			'listening')

		(passOver			'pass over')
		(passUnder			'pass under')

		(appendVertex		'add a vertex at end')
		(insertVertexAtCursor		'insert a vertex at cursor')
		(prependVertex		'add a vertex at beginning')
		(removeAllButCursor			'remove all vertices but cursor')
		(removeVertexAtCursor		'remove the vertex at cursor')
		(shuffleVertices		'shuffle vertices')
		(lineCurved		'line is curved')
		(lineOpened		'line is opened')
		(showingHandles		'showing handle')
		(vertexCursor		'vertex cursor')
		(verticesCount		'vertices count')
		(xAtCursor		'x at cursor')
		(yAtCursor		'y at cursor')

		)

	do:
		[:pair | toTest = pair first ifTrue: [^ pair second]].

	^ toTest

	"StandardScriptingSystem initialize"

! !