'From etoys4.0 of 9 October 2008 [latest update: #2285] on 11 September 2009 at 5:28:14 pm'!
"Change Set:		sugarScale-bf
Date:			11 September 2009
Author:			Bert Freudenberg

When building sugar image, make it 800x600 by default"!


!ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'bf 9/11/2009 17:27'!
prepareReleaseImageForOLPC
	"ReleaseBuilderSqueakland new prepareReleaseImageForOLPC"
	self testPrerequired.
	self updateGettext.
	self cleanupForOLPC.
	self buildInitialScreenForOLPC.
! !

!ReleaseBuilderSqueakland methodsFor: 'olpc' stamp: 'bf 9/11/2009 16:55'!
testPrerequired
	| directory entries projectNames |
	projectNames := #('Gallery' 'Tutorials' 'EtoysActivity').
	directory := FileDirectory on: Smalltalk imagePath.
	entries := FileList2 projectOnlySelectionMethod: directory entries.
	projectNames
		do: [:projectName | (entries
					anySatisfy: [:each | (Project parseProjectFileName: each first) first = projectName])
				ifFalse: [^ self error: projectName , ' is not found']].
	self checkCopyright.
	"Test if the screen resolution is correct"
	Display extent = (800 @ 600)
		ifFalse: [^ self error: 'The display extent should be 800 @ 600'].
! !

!ReleaseBuilderSqueakland methodsFor: 'squeakland' stamp: 'bf 9/11/2009 17:24'!
prepareReleaseImageForSqueakland
	"ReleaseBuilderSqueakland new prepareReleaseImageForSqueakland"
	self testPrerequired.
	self cleanupForSqueakland.
	self setupUpdateStreamForSqueakland.
	self setupServerDirectoryForSqueakland.! !