'From etoys2.1 of 26 July 2007 [latest update: #1541] on 9 August 2007 at 9:56:56 pm'!
"Change Set:		WsFixupAug9-yo
Date:			9 August 2007
Author:			Yoshiki Ohshima

Resolve conflicts from WsRangeFinder-ka.
"!


!StandardScriptingSystem methodsFor: '*WS-Sound-Override' stamp: 'yo 8/8/2007 20:10'!
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')
		(cutOffLevel			'cut off level')

		(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"

! !


!WsWorldStethoscopeMorph methodsFor: 'initialization' stamp: 'yo 7/9/2007 11:45'!
initialize
	| full |
	super initialize.
	model _ WsWorldStethoscope default.
	model initialize.
	self hResizing: #shrinkWrap;
		 vResizing: #shrinkWrap.
	borderWidth := 2.
	self listDirection: #topToBottom.
	full _ self addButtonRow.
	submorphs last addMorphBack: (self makeStatusLightIn: full extent).

	self addSlidersIn: full extent.
! !