'From etoys4.0 of 9 October 2008 [latest update: #2236] on 17 July 2009 at 3:32:55 pm'!
"Change Set:		sqLandConfigJul17-yo
Date:			17 July 2009
Author:			Yoshiki Ohshima

Set to use Bigger cursor.  Make font bigger."!


!Preferences class methodsFor: 'fonts' stamp: 'yo 7/17/2009 15:11'!
restoreDefaultFontsForSqueakland
	"Since this is called from menus, we can take the opportunity to prompt for missing font styles."
	"
	Preferences restoreDefaultFontsForSqueakland
	"

	Preferences restoreDefaultFonts.
	Preferences setDefaultFonts: #(
			(setCodeFontTo: 	BitstreamVeraSans 				12)
			(setSystemFontTo: BitstreamVeraSans 				12)
		).

! !

!Preferences class methodsFor: 'themes' stamp: 'yo 7/17/2009 15:24'!
chicago
	"A theme for Squeakland project"
	"Preferences chicago"

	self cambridge.
	
	self setPreferencesFrom: #(
		"(biggerCursors false)"
		"(magicHalos true)"
		(sugarNavigator true)
		(swapControlAndAltKeys false)
		(unlimitedPaintArea true)
		(useArtificialSweetenerBar true)
		(usePopUpArrows false)
		"(updateFromServerAtStartup false)"
	).! !


!ReleaseBuilderSqueakland methodsFor: 'utilities' stamp: 'yo 7/17/2009 15:12'!
installReleaseSpecificsForSqueakland
	"ReleaseBuilderSqueakland new installReleaseSpecificsForSqueakland"

	World color: (Color r: 0.9 g: 0.9 b: 1.0).
	Preferences restoreDefaultFontsForSqueakland.
	ExternalSettings registerClient: ServerDirectory.
! !


!SugarNavigatorBar methodsFor: 'the actions' stamp: 'yo 7/17/2009 15:29'!
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.].
! !