'From etoys3.0 of 24 February 2008 [latest update: #1986] on 1 May 2008 at 3:14:21 am'!
"Change Set:		transPgCtrl-KR
Date:			1 May 2008
Author:			Korakurider

translate controls built with #showPageControls"!


!MoviePlayerMorph methodsFor: 'page controls' stamp: 'KR 5/1/2008 03:03'!
fullControlSpecs
	^ {	
			{ '·'.		#invokeBookMenu. 'Invoke menu' translated}.
			{ '<--'.		#firstPage.		'Go to first page' translated}.
			{ '<<'.		#playReverse.	'Play backward' translated}.
			{ '<-'. 		#previousPage.	'Back one frame' translated}.
			{ '| |'. 		#stopPlay.		'Stop playback' translatedNoop}.
			{ '->'.		#nextPage.		'Forward one frame' translated}.
			{ '>>'.		#playForward.	'Play forward' translated}.
			{ '-->'.		#lastPage.		'Go to final page' translated}.
			{ '<->'.		#scanBySlider.	'Scan by slider'  translated. 'menu' }
		"Note extra spec 'menu' causes mousedown activation -- see makePageControlsFrom:"
	}! !


!StackMorph methodsFor: 'page controls' stamp: 'KR 5/1/2008 03:08'!
fullControlSpecs
	"Answer specifications for the long form of iconic stack/book controls"

	^ {
		#spacer.
		#variableSpacer.
		{'-'.			#deleteCard.			'Delete this card' translated}.
		#spacer.
		{ '«'	.		#goToFirstCardOfStack.	'First card' translated}.
		#spacer.
		{ '<'. 		#goToPreviousCardInStack.		'Previous card' translated}.
		#spacer.
		{'·'.			#invokeBookMenu. 	'Click here to get a menu of options for this stack.' translated}.
		"#spacer.	{'¶'.			#reshapeBackground.  'Reshape' translated}.	"

		#spacer.
		{'§'.			#showDesignationsOfObjects. 	'Show designations' translated}.
		#spacer.
		{'>'	.		#goToNextCardInStack.	'Next card' translated}.
		#spacer.
		{ '»'.		#goToLastCardOfStack.	'Final card' translated}.
		#spacer.
		{'+'.		#insertCard.			'Add a new card after this one' translated}.
		#variableSpacer.
		{'³'.			#fewerPageControls.			'Fewer controls
(if shift key pressed,
deletes controls)' translated}
}! !

!StackMorph methodsFor: 'page controls' stamp: 'KR 5/1/2008 03:11'!
shortControlSpecs
	"Answer specficiations for the shorter form of stack controls"

	^ {
		#spacer.
		#variableSpacer.
		{ '<'.	#goToPreviousCardInStack.		'Previous card' translated}.
		#spacer.
		{'·'.		#invokeBookMenu. 			'Click here to get a menu for this stack.' translated}.
		#spacer.
		{'>'.	#goToNextCardInStack.		'Next card' translated}.
		#variableSpacer.
		{'³'.		#showMoreControls.			'More controls
(if shift key pressed,
deletes controls)' translated}
}! !