'From Squeakland 3.8.5976 of 25 August 2004 [latest update: #388] on 10 February 2005 at 7:37:15 pm'!
"Change Set:		translationNavBar2
Date:			10 February 2005
Author:			Yoshiki Ohshima

More translations for Nav bar."!


!ProjectNavigationMorph methodsFor: 'the buttons' stamp: 'yo 2/10/2005 19:27'!
buttonLanguage
	"Answer a button for changing the language"
	| myButton m |
	myButton _ self makeButton: ''
		balloonText:  'Click here to choose your language.' translated
		for: #chooseLanguage.
	myButton addMorph: (m _ self languageIcon asMorph lock).
	myButton extent: m extent + (myButton borderWidth + 6).
	m position: myButton center - (m extent // 2).
	^ myButton! !