[Etoys] [Fix] translate classic navigator

[korakurider]

Hello.

Button captions of classic navigator can be extracted into
POs and translated with the patch attached.
Though this is for squeakland-OLPC rather than EToys-OLPC,
here it is anyway... 

/Korakurider


--------------------------------------
New Design Yahoo! JAPAN  2008/01/01
http://pr.mail.yahoo.co.jp/newdesign/
-------------- next part --------------
'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
! !