'From Squeakland-OLPC of 5 September 2007 [latest update: #1] on 5 September 2007 at 12:57:31 am'!
"Change Set:		RelBuilderForSqLand-yo
Date:			4 September 2007
Author:			Yoshiki Ohshima

A release builder setting for a non-OLPC release.

It requires some refactoring.  The common methods should be pushed up to a base class and OLPC and Squeakland be different subclasses.  But, so far, this is the way it is.

"!


!Preferences class methodsFor: 'fonts' stamp: 'yo 9/4/2007 23:26'!
restoreDefaultFontsForSqueakland
	"Since this is called from menus, we can take the opportunity to prompt for missing font styles."
	"
	Preferences restoreDefaultFontsForSqueakland
	"

	Preferences setDefaultFonts: #(
			(setListFontTo:			BitstreamVeraSans		12)
	        	(setFlapsFontTo:			BitstreamVeraSansBold	12)
			(setEToysFontTo:			BitstreamVeraSansBold	12)
			(setPaintBoxButtonFontTo:	BitstreamVeraSans	9)
			(setMenuFontTo:			BitstreamVeraSans		12)
			(setWindowTitleFontTo:	BitstreamVeraSans		15)
			(setBalloonHelpFontTo:	BitstreamVeraSans		12)
			(setButtonFontTo:		BitstreamVeraSans	12)
			(setCodeFontTo:			BitstreamVeraSans					12)
		).
! !

!Preferences class methodsFor: 'themes' stamp: 'yo 9/4/2007 17:51'!
chicago
	"A theme for Squeakland project"
	"Preferences chicago"

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


!ReleaseBuilderSqueakland methodsFor: 'utilities' stamp: 'yo 9/4/2007 23:26'!
installReleaseSpecificsForSqueakland
	"ReleaseBuilderSqueakland new installReleaseSpecificsForSqueakland"

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

!ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'yo 9/4/2007 18:00'!
cleanupForSqueakland
	"Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
	"ReleaseBuilderSqueakland new cleanupForSqueakland"
	
	(self confirm: 'Are you sure you want to prepare a release image?
This will perform several irreversible cleanups on this image.')
		ifFalse: [^ self].
	self
		initialCleanup;
		finalStripping;
		installReleaseSpecificsForOLPC;
		finalCleanup.
	Preferences chicago.
	Display isVirtualScreen ifTrue: [
		OLPCVirtualScreen unInstall
	].
	Display newDepth: 16.
	Project current displayDepth: 16.
	PartsBin  rebuildIconsWithProgress.

	World
		submorphsDo: [:m | m delete].
	Flaps disableGlobalFlaps: false.
	Flaps enableEToyFlaps.

! !

!ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'yo 9/4/2007 23:51'!
prepareReleaseImageForSqueakland
	"ReleaseBuilderSqueakland new prepareReleaseImageForSqueakland"
	self cleanupForSqueakland.
! !

!ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'yo 9/5/2007 00:43'!
setupUpdateStream

	| 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.
! !

"Postscript:
"
!