'From etoys2.2 of 1 October 2007 [latest update: #1759] on 6 November 2007 at 11:24:08 am'!
"Change Set:		SugarNav19-yo
Date:			6 November 2007
Author:			Yoshiki Ohshima

Make the rounded field wider when there is enough space.

It still doesn't track extent changes and color change, that is a to-do for later version."!

ProjectNavigationMorph subclass: #SugarNavigatorBar
	instanceVariableNames: 'sugarLib highLightColor undoButton shareButton otherShareForm zoomButton supplies listener suppliesFlap '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Sugar'!

!SugarNavigatorBar methodsFor: 'the actions' stamp: 'yo 11/6/2007 11:24'!
makeProjectNameLabel

	| t label |
	label _ SugarRoundedField new.
	label extent: (Display width >= 1200 ifTrue: [240] ifFalse: [160])@46.  "The height should be 45 according to the Sugar guilde line, but an odd number makes the circle distorted."
	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: label width - 10.
	label label: t.
	^ label.
! !

ProjectNavigationMorph subclass: #SugarNavigatorBar
	instanceVariableNames: 'sugarLib highLightColor undoButton shareButton zoomButton supplies listener suppliesFlap'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Sugar'!
"Postscript:
"
Flaps disableGlobalFlaps: false.
Flaps enableEToyFlaps.
!