'From etoys2.2 of 25 September 2007 [latest update: #1760] on 7 November 2007 at 2:46:13 pm'! "Change Set: classicNaviTrans-KR Date: 7 November 2007 Author: Korakurider translate buttons of classic etoys navigator"! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:40'! buttonFind "Answer a button for finding/loading projects" ^ self makeButton: 'FIND' translated balloonText: 'Click here to find a project. Hold down this button to reveal additional options.' translated for: #findAProjectSimple ! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:43'! buttonFlaps ^self inFlapsSuppressedMode ifTrue: [ self makeButton: 'Show tabs' translated balloonText: 'Show tabs' for: #toggleFlapsSuppressed ] ifFalse: [ self makeButton: 'Hide tabs' translated balloonText: 'Hide tabs' for: #toggleFlapsSuppressed ]. ! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:43'! buttonFullScreen ^self inFullScreenMode ifTrue: [ self makeButton: 'Browser Reentry' translated balloonText: 'Re-enter the browser' for: #fullScreenOff ] ifFalse: [ self makeButton: 'Escape Browser' translated balloonText: 'Use the full screen' for: #fullScreenOn ] ! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:42'! buttonGoTo ^self makeButton: 'GO TO' translated balloonText: 'Go to another project' for: #gotoAnother ! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:40'! buttonNewProject ^self makeButton: 'NEW' translated balloonText: 'Start a new project' translated for: #newProject ! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:42'! buttonNewer ^self makeButton: 'Newer?' translated balloonText: 'Is there a newer version of this project ?' for: #getNewerVersionIfAvailable! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:42'! buttonNext ^self makeButton: 'NEXT >' translated balloonText: 'Next project' for: #nextProject! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:41'! buttonPrev ^self makeButton: '< PREV' translated balloonText: 'Previous project' translated for: #previousProject! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:41'! buttonQuit ^self makeButton: 'QUIT' translated balloonText: ('Quit Squeak altogether' translatedNoop) for: #quitSqueak ! ! !ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'KR 11/7/2007 14:42'! buttonTell ^self makeButton: 'Tell!!' translated balloonText: 'Tell a friend about this project' for: #tellAFriend ! !