[etoys-dev] Etoys: ReleaseBuilder-bf.5.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of ReleaseBuilder to project Etoys:
http://source.squeak.org/etoys/ReleaseBuilder-bf.5.mcz

==================== Summary ====================

Name: ReleaseBuilder-bf.5
Author: bf
Time: 11 September 2010, 6:14:48 pm
UUID: cc2d35d8-3c75-44e7-8b07-f5c8050804b8
Ancestors: ReleaseBuilder-bf.4

More release builder cleanup, remove some outdated methods

=============== Diff against ReleaseBuilder-bf.4 ===============

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>buildInitialScreenForOLPC (in category 'olpc') -----
- buildInitialScreenForOLPC
- 	"ReleaseBuilderSqueakland new buildInitialScreenForOLPC"
- 
- 	"pre-load QuickGuideMorph class var IndexPage"
- 	QuickGuideMorph new preloadIndex.
- 
- 	World
- 		submorphsDo: [:m | m delete].
- 	Flaps disableGlobalFlaps: false.
- 	Flaps enableEToyFlaps.
- 
- 	ProjectLoading loadFromImagePath: 'Tutorials'.
- 	ProjectLoading loadFromImagePath: 'Gallery'.
- 	ProjectLoading loadFromImagePath: 'Home'.
- 
- 	(World submorphs select: [:e | e isMemberOf: ProjectViewMorph]) do: [:e | e delete].
- 	Project current
- 		setThumbnail: (Project home ifNotNilDo: [:p | p thumbnail]).!

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>cleanupForOLPC (in category 'olpc') -----
- cleanupForOLPC
- 	"Perform various image cleanups in preparation for making an OLPC Etoys image."
- 	"ReleaseBuilderSqueakland new cleanupForOLPC"
- 	
- 	self
- 		initialCleanup;
- 		finalStripping;
- 		installReleaseSpecificsForOLPC;
- 		finalCleanupForOLPC.
- 	Preferences cambridge.
- 	OLPCVirtualScreen virtualScreenExtent: nil.
- 	Display isVirtualScreen ifFalse: [
- 		OLPCVirtualScreen install
- 	].
- 	Display newDepth: 16.
- 	Project current displayDepth: 16.
- 	PartsBin  rebuildIconsWithProgress.
- !

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>cleanupForSqueakland (in category 'squeakland') -----
  cleanupForSqueakland
  	"Perform various image cleanups in preparation for making a Squeakland OLPC image."
  	"ReleaseBuilderSqueakland new cleanupForSqueakland"
  	
  	self
  		initialCleanup;
+ 		installPreferences;
  		finalStripping;
+ 		installReleaseSpecifics;
+ 		finalCleanup.
- 		installReleaseSpecificsForSqueakland;
- 		finalCleanupForSqueakland.
- 	Preferences cambridge.
  	OLPCVirtualScreen virtualScreenExtent: nil.
  	Display isVirtualScreen ifFalse: [
  		OLPCVirtualScreen install
  	].
  	Display newDepth: 16.
  	Project current displayDepth: 16.
  	PartsBin  rebuildIconsWithProgress.
  !

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>finalCleanup (in category 'utilities') -----
  finalCleanup
+ 	"ReleaseBuilderSqueakland new finalCleanup"
- 	"ReleaseBuilder new initialCleanup"
  
  
+ 	Smalltalk condenseChanges.
+ 	Preferences disable: #warnIfNoChangesFile.
+ 	Preferences disable: #warnIfChangesFileReadOnly.
+ 	Preferences disable: #warnIfNoSourcesFile.
- 	Smalltalk abandonTempNames.
  	Smalltalk zapAllOtherProjects.
+ 	super finalCleanup.
+ !
- 	
- 	super finalCleanup!

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalCleanupForOLPC (in category 'utilities') -----
- finalCleanupForOLPC
- 	"ReleaseBuilderSqueakland new finalCleanupForOLPC"
- 
- 
- 	Smalltalk condenseChanges.
- 	Preferences disable: #warnIfNoChangesFile.
- 	Preferences disable: #warnIfChangesFileReadOnly.
- 	Preferences disable: #warnIfNoSourcesFile.
- 	Smalltalk zapAllOtherProjects.
- 	super finalCleanup.
- !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalCleanupForSqueakland (in category 'utilities') -----
- finalCleanupForSqueakland
- 	"ReleaseBuilderSqueakland new finalCleanupForSqueakland"
- 
- 
- 	Smalltalk condenseChanges.
- 	Preferences disable: #warnIfNoChangesFile.
- 	Preferences disable: #warnIfChangesFileReadOnly.
- 	Preferences disable: #warnIfNoSourcesFile.
- 	Smalltalk zapAllOtherProjects.
- 	super finalCleanup.
- !

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>installPreferences (in category 'utilities') -----
  installPreferences
  	"Install desired preferences for the release."
+ 	Preferences cambridge.
- 
- 	#(
- 		(honorDesktopCmdKeys false)
- 		(warnIfNoChangesFile false)
- 		(warnIfNoSourcesFile false)
- 		(showDirectionForSketches true)
- 		(menuColorFromWorld false)
- 		(unlimitedPaintArea true)
- 		(useGlobalFlaps false)
- 		(mvcProjectsAllowed false)
- 		(projectViewsInWindows false)
- 		(automaticKeyGeneration true)
- 		(securityChecksEnabled true)
- 		(showSecurityStatus false)
- 		(startInUntrustedDirectory true)
- 		(warnAboutInsecureContent false)
- 		(promptForUpdateServer false)
- 		(fastDragWindowForMorphic false)
- 
- 		(externalServerDefsOnly true)
- 		(expandedFormat false)
- 		(allowCelesteTell false)
- 		(eToyFriendly true)
- 		(eToyLoginEnabled true)
- 		(magicHalos true)
- 		(mouseOverHalos true)
- 		(biggerHandles false)
- 		(selectiveHalos true)
- 		(includeSoundControlInNavigator true)
- 		(readDocumentAtStartup true)
- 		(preserveTrash true)
- 		(slideDismissalsToTrash true)
- 		(modalColorPickers true)
- 		(propertySheetFromHalo false)
- 
- 	) do:[:spec|
- 		Preferences setPreference: spec first toValue: spec last].
- 	"Workaround for bug"
- 	Preferences enable: #readDocumentAtStartup.
  !

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecifics (in category 'utilities') -----
  installReleaseSpecifics
  	"ReleaseBuilderSqueakland new installReleaseSpecifics"
  
- 	| serverName serverURL serverDir updateServer |
- 
- 	ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
- 
- 	"Dump all morphs so we don't hold onto anything"
- 	World submorphsDo:[:m| m delete].
- 
  	World color: (Color r: 0.9 g: 0.9 b: 1.0).
+ 	Preferences restoreDefaultFontsForSqueakland.
+ 	ExternalSettings registerClient: ServerDirectory.
- 
- 	"Clear all server entries"
- 	ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- 	SystemVersion current resetHighestUpdate.
- 
- 	"Add the squeakalpha update stream"
- 	serverName _ 'Squeakalpha'.
- 	serverURL _ 'squeakalpha.org'.
- 	serverDir _ serverURL , '/'.
- 
- 	updateServer _ ServerDirectory new.
- 	updateServer
- 		server: serverURL;
- 		directory: 'updates/';
- 		altUrl: serverDir;
- 		user: 'sqland';
- 		password: nil.
- 	Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- 
- 	"Add the squeakland update stream"
- 	serverName _ 'Squeakland'.
- 	serverURL _ 'squeakland.org'.
- 	serverDir _ serverURL , '/'.
- 
- 	updateServer _ ServerDirectory new.
- 	updateServer
- 		server: serverURL;
- 		directory: 'public_html/updates/';
- 		altUrl: serverDir.
- 	Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- 
  !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecificsForOLPC (in category 'utilities') -----
- installReleaseSpecificsForOLPC
- 	"ReleaseBuilderSqueakland new installReleaseSpecificsForOLPC"
- 
- 	World color: (Color r: 0.9 g: 0.9 b: 1.0).
- 	Preferences restoreDefaultFontsForSqueakland.
- !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecificsForSqueakland (in category 'utilities') -----
- installReleaseSpecificsForSqueakland
- 	"ReleaseBuilderSqueakland new installReleaseSpecificsForSqueakland"
- 
- 	World color: (Color r: 0.9 g: 0.9 b: 1.0).
- 	Preferences restoreDefaultFontsForSqueakland.
- 	ExternalSettings registerClient: ServerDirectory.
- !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>prepareReleaseImageForOLPC (in category 'olpc') -----
- prepareReleaseImageForOLPC
- 	"ReleaseBuilderSqueakland new prepareReleaseImageForOLPC"
- 	self testPrerequired.
- 	self updateGettext.
- 	self cleanupForOLPC.
- 	self buildInitialScreenForOLPC.
- !

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>prepareReleaseImageForSqueakland (in category 'squeakland') -----
  prepareReleaseImageForSqueakland
  	"ReleaseBuilderSqueakland new prepareReleaseImageForSqueakland"
  	self testPrerequired.
+ 	self updateGettext.
  	self cleanupForSqueakland.
  	self setupUpdateStreamForSqueakland.
  	self setupServerDirectoryForSqueakland.!

Item was changed:
+ ----- Method: ReleaseBuilderSqueakland>>testPrerequired (in category 'squeakland') -----
- ----- Method: ReleaseBuilderSqueakland>>testPrerequired (in category 'olpc') -----
  testPrerequired
  	| directory entries projectNames |
  	projectNames := #('Gallery' 'Tutorials' 'Home').
  	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"
  	DisplayScreen actualScreenSize = (800 @ 600)
  		ifFalse: [^ self error: 'The Etoys window be 800 @ 600'].
  	Display extent = (1200 @ 900)
  		ifFalse: [^ self error: 'The virtual screen extent should be 1200 @ 900'].
  !

Item was changed:
+ ----- Method: ReleaseBuilderSqueakland>>updateGettext (in category 'squeakland') -----
- ----- Method: ReleaseBuilderSqueakland>>updateGettext (in category 'olpc') -----
  updateGettext
  	"ReleaseBuilderSqueakland new updateGettext"
  	"Export gettext template and import all translation in po/"
  	GetTextExporter exportTemplate.
  	GetTextImporter importAll.!