'From etoys2.2 of 1 October 2007 [latest update: #1773] on 13 November 2007 at 5:03:07 pm'!
"Change Set:		TextFieldFocus-yo
Date:			13 November 2007
Author:			Yoshiki Ohshima

The text object in the rounded field should be easier to type in."!


!SugarNavigatorBar methodsFor: 'the actions' stamp: 'yo 11/13/2007 15:46'!
makeProjectNameLabel

	| t |
	projectNameField _ SugarRoundedField new.
	self resizeProjectNameField.
	t _ UpdatingStringMorph new.
	t setProperty: #okToTextEdit toValue: true.
	t putSelector: #projectNameChanged:.
	t getSelector: #projectName.
	t target: self.
	t useStringFormat.
	t beSticky.
	t label: ActiveWorld project name font: (StrikeFont familyName: 'BitstreamVeraSans' size: 24).
	t color: Color black.
	t width: projectNameField width - 10.
	projectNameField label: t.
	projectNameField setBalloonText: self projectNameFieldBalloonHelp.
	projectNameField on: #mouseDown send: #mouseDown: to: t.
	projectNameField on: #mouseUp send: #mouseUp: to: t.
	^projectNameField.
! !