'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} }! !