'From etoys4.0 of 9 October 2008 [latest update: #2290] on 11 September 2009 at 2:34:49 pm'! "Change Set: AdjustNameField-yo Date: 11 September 2009 Author: Yoshiki Ohshima Bullet proof against various name field size change."! !SugarNavigatorBar methodsFor: 'the actions' stamp: 'yo 9/11/2009 14:26'! resizeProjectNameField "The height should be 45 according to the Sugar guilde line, but an odd number makes the circle distorted. To be general, it uses 60% of the height of bar." | h | h _ (self height * 0.6) roundTo: 2. projectNameField ifNotNil: [ projectNameField extent: (Display width >= 1200 ifTrue: [220] ifFalse: [130])@h. projectNameField resizeLabel].! ! !SugarRoundedField methodsFor: 'as yet unclassified' stamp: 'yo 9/11/2009 14:26'! label: aStringOrMorph label ifNotNil: [label delete. label _ nil]. label _ aStringOrMorph. label isString ifTrue: [ label _ StringMorph new label: label font: Preferences standardEToysFont ]. self resizeLabel. ! ! !SugarRoundedField methodsFor: 'as yet unclassified' stamp: 'yo 9/11/2009 14:26'! naviHeight: aNumber self extent: self width@(aNumber * 0.6). self resizeLabel.! ! !SugarRoundedField methodsFor: 'as yet unclassified' stamp: 'yo 9/11/2009 14:32'! resizeLabel | small | label ifNotNil: [ label width: self width - 10. small :=self height < 45. label label: ActiveWorld project name font: (StrikeFont familyName: 'BitstreamVeraSans' size: (small ifTrue: [15] ifFalse: [24])). label center: self center. label left: self left + 10. self addMorph: label. ]. ! !