'From etoys4.0 of 9 October 2008 [latest update: #2287] on 11 September 2009 at 10:46:58 am'!
"Change Set:		BalloonHelpForLogin-yo
Date:			11 September 2009
Author:			Yoshiki Ohshima

Adds help to new button and field."!


!FileList2 methodsFor: 'private' stamp: 'yo 9/11/2009 10:45'!
updateLoginButtonAppearance

	| old oldField |
	old := loginButton.
	oldField := loginField.
	loginField := Morph new color: Color white.
	loginField borderWidth: 2.
	loginField borderColor: ScriptingSystem baseColor.
	loginField beSticky.
	loginField width: 150.
	loginField height: 30.
	loginField clipSubmorphs: true.
	Utilities loggedIn ifTrue: [
		loginButton := self class
					buildButtonText: 'Logout' translated
					balloonText: nil
					receiver: self
					selector: #logoutHit.
		loginButton color: ScriptingSystem baseColor.
		loginField addMorphCentered: (StringMorph contents: (Utilities authorNamePerSe ifNil: ['      ']) font: Preferences standardEToysButtonFont).
		loginButton setBalloonText: 'Log out from the Squeakland server' translated.
		loginField setBalloonText: 'Your Squeakland user name' translated.
	]
	ifFalse: [
		loginButton := self class
					buildButtonText: 'Login' translated
					balloonText: nil
					receiver: self
					selector: #loginHit.
		loginButton color: ScriptingSystem baseColor.
		loginField addMorphCentered: (StringMorph contents: '      ' font: Preferences standardEToysButtonFont).
		loginButton setBalloonText: 'Log in to share projects on the Squeakland server' translated.
		loginField setBalloonText: 'Your Squeakland user name' translated
	].
	loginButton setNamePropertyTo: 'login'.
	loginButton width: 150.
	old ifNotNil: [
		old owner addMorph: loginButton inFrontOf: old.
		old delete].
	oldField ifNotNil: [
		oldField owner addMorph: loginField inFrontOf: oldField.
		oldField delete].
! !