'From etoys4.0 of 9 October 2008 [latest update: #2229] on 9 July 2009 at 10:30:10 pm'!
"Change Set:		SqueaklandRelease09-yo
Date:			9 July 2009
Author:			Yoshiki Ohshima

Adopt the new policy on the screen size, where almost always use the virtual screen."!


!Preferences class methodsFor: 'themes' stamp: 'yo 7/9/2009 20:54'!
chicago
	"A theme for Squeakland project"
	"Preferences chicago"

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


!ReleaseBuilderSqueakland methodsFor: 'utilities' stamp: 'yo 7/9/2009 20:24'!
installReleaseSpecificsForSqueakland
	"ReleaseBuilderSqueakland new installReleaseSpecificsForSqueakland"

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

!ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'yo 7/9/2009 20:34'!
cleanupForSqueakland
	"Perform various image cleanups in preparation for making a Squeakland OLPC image."
	"ReleaseBuilderSqueakland new cleanupForSqueakland"
	
	self
		initialCleanup;
		finalStripping;
		installReleaseSpecificsForSqueakland;
		finalCleanupForSqueakland.
	Preferences chicago.
	OLPCVirtualScreen virtualScreenExtent: nil.
	Display isVirtualScreen ifFalse: [
		OLPCVirtualScreen install
	].
	Display newDepth: 16.
	Project current displayDepth: 16.
	PartsBin  rebuildIconsWithProgress.
! !

!ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'yo 7/9/2009 20:27'!
setupUpdateStreamForSqueakland

	| d |
	d _ DAVServerDirectory on: 'http://tinlizzie.org/updates/squeakland/updates'.
	d altUrl: 'http://tinlizzie.org/updates/squeakland/updates'.
	d moniker: 'Squeakland'.
	d user: 'tlvpri'.

	Utilities classPool at: #UpdateUrlLists put: nil.
	ServerDirectory inImageServers keysDo: [:k | ServerDirectory inImageServers removeKey: k].
	ServerDirectory inImageServers at: 'Squeakland' put: d.
	Utilities updateUrlLists add: (Array with: 'Squeakland' with: #('tinlizzie.org/updates/squeakland/')).

	"SystemVersion newVersion: 'Squeakland-OLPC'."
	"SystemVersion current resetHighestUpdate."
! !