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

[commits at source.squeak.org]

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

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

Name: ReleaseBuilder-bf.4
Author: bf
Time: 11 September 2010, 5:04:08 pm
UUID: 071311ae-c4c8-4684-a921-ac539d563b12
Ancestors: ReleaseBuilder-bf.3

Fix release builder scripts

=============== Diff against ReleaseBuilder-bf.3 ===============

Item was changed:
  ----- Method: ReleaseBuilder>>initialCleanup (in category 'utilities') -----
  initialCleanup
  	"Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
  	"ReleaseBuilder new initialCleanup"
  	
  	Undeclared removeUnreferencedKeys.
  	StandardScriptingSystem initialize.
+ 	Object reInitializeDependentsFields.
  
  	(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents'].
  	"Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared']."
  
  	Browser initialize.
- 	ScriptingSystem deletePrivateGraphics.  "?"
  	
  	self cleanUpChanges.
  	ChangeSet current clear.
  	ChangeSet current name: 'Unnamed1'.
  	Smalltalk garbageCollect.
  
  	"Reinitialize DataStream; it may hold on to some zapped entitities"
  	DataStream initialize.
  
  	Smalltalk garbageCollect.
  	ScheduledControllers _ nil.
  	Smalltalk garbageCollect.
  	
  	SMSqueakMap default purge.
  	
  !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>buildForSqueaklandDev (in category 'squeakland-dev') -----
- buildForSqueaklandDev
- 	"Perform various image cleanups in preparation for making a Squeakland OLPC image."
- 	"ReleaseBuilderSqueakland new buildForSqueaklandDev"
- 
- 	Undeclared removeUnreferencedKeys.
- 	StandardScriptingSystem initialize.
- 	Browser initialize.
- 	(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents'].
- 	"Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared']."
- 	ScriptingSystem deletePrivateGraphics.  "?"
- 	ChangeSet current clear.
- 	ChangeSet current name: 'Unnamed1'.
- 	Smalltalk garbageCollect.
- 	"Reinitialize DataStream; it may hold on to some zapped entitities"
- 	DataStream initialize.
- 
- 	Smalltalk garbageCollect.
- 	ScheduledControllers _ nil.
- 	Smalltalk garbageCollect.
- 	
- 	SMSqueakMap default purge.
- 
- 	self installReleaseSpecificsForSqueakland.
- 	Preferences chicago.
- 	OLPCVirtualScreen virtualScreenExtent: nil.
- 	Display isVirtualScreen ifTrue: [
- 		OLPCVirtualScreen unInstall
- 	].
- 	Display newDepth: 16.
- 	Project current displayDepth: 16.
- 	PartsBin  rebuildIconsWithProgress.
- 	Preferences setPreference: #eToyFriendly toValue: false.
- 	Preferences setPreference: #securityChecksEnabled toValue: false.
- 	Preferences setPreference: #automaticKeyGeneration toValue: false.
- 	Preferences setPreference: #biggerCursors toValue: false.
- 	Preferences setPreference: #uniqueNamesInHalos toValue: true.
- 	Preferences setPreference: #allowEtoyUserCustomEvents toValue: false.
- 	Preferences setPreference: #useLocale toValue: false.
- 	Preferences setPreference: #startInUntrustedDirectory toValue: false.
- 	SugarNavigatorBar current configureForSqueakland.
- !

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;
  		finalStripping;
  		installReleaseSpecificsForSqueakland;
  		finalCleanupForSqueakland.
+ 	Preferences cambridge.
- 	Preferences chicago.
  	OLPCVirtualScreen virtualScreenExtent: nil.
  	Display isVirtualScreen ifFalse: [
  		OLPCVirtualScreen install
  	].
  	Display newDepth: 16.
  	Project current displayDepth: 16.
  	PartsBin  rebuildIconsWithProgress.
  !

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
  finalStripping
  	"ReleaseBuilderSqueakland new finalStripping"
  
  	#(#Helvetica #Palatino #Courier #ComicSansMS )
  		do: [:n | TextConstants
  				removeKey: n
  				ifAbsent: []].
  	Smalltalk
  		at: #Player
  		ifPresent: [:superCls | superCls
  				allSubclassesDo: [:cls | 
  					cls isSystemDefined
  						ifFalse: [cls removeFromSystem].
  					cls := nil]].
  	Smalltalk garbageCollect.
- 	Smalltalk discardFFI; discardSUnit; discardSpeech; yourself.
- 	"discardMVC;"
  	SystemOrganization removeEmptyCategories.
  !

Item was changed:
  ----- 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'].
- 	Display extent = (800 @ 600)
- 		ifFalse: [^ self error: 'The display extent should be 800 @ 600'].
  !