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

[commits at source.squeak.org]

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

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

Name: ReleaseBuilder-bf.6
Author: bf
Time: 11 September 2010, 7:28:50 pm
UUID: a60c5223-79ca-4f66-9d15-ec745e7780eb
Ancestors: ReleaseBuilder-bf.5

More release builder clean up. Getting there ...

=============== Diff against ReleaseBuilder-bf.5 ===============

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderDeveloper
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!
- 
- !ReleaseBuilderDeveloper commentStamp: 'gk 2/28/2005 13:27' prior: 0!
- This release builder subclass is used for the official Squeak distribution Basic, which currently is the base image of Squeak.
- Full is then built on top of Basic using a loadscript from SqueakMap. Minimal is constructed using another script from SqueakMap that removes packages that are included in Basic.!

Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- 	"Clean up the change sets"
- 
- 	"ReleaseBuilderDeveloper new cleanUpChanges"
- 	
- !

Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installPreferences (in category 'utilities') -----
- installPreferences
- 	super installPreferences.
- 	#(
- 		(updateFromServerAtStartup true)
- 
- 	) do:[:spec|
- 		Preferences setPreference: spec first toValue: spec last]!

Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- 	"Currently just clear and add the ServerDirectories
- 	and update streams we want as default."
- 
- 	"Clear all server entries"
- 	ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- 
- 	"Add default entries, added an entry for the new file area.
- 	The others are the current ones that see to work 
- 	as of 2005-02-28 and I recreated them using source."
- 	ServerDirectory addServer: (ServerDirectory new 
- 		type: #ftp;
- 		user: '';
- 		server: 'box1.squeakfoundation.org';
- 		altUrl: 'http://box1.squeakfoundation.org/files';
- 		directory: 'files';
- 		keepAlive: false) named: 'Squeak.org Archive'.
- 	ServerDirectory addServer: (ServerDirectory new 
- 		type: #ftp;
- 		server: 'st.cs.uiuc.edu';
- 		user: 'anonymous';
- 		directory: '/Smalltalk/Squeak';
- 		keepAlive: false) named: 'UIUC Archive'.	
- 	ServerDirectory addServer: (ServerDirectory new 
- 		type: #ftp;
- 		server: 'ftp.create.ucsb.edu';
- 		user: 'anonymous';
- 		directory: '/pub/Smalltalk/Squeak';
- 		keepAlive: false) named: 'UCSBCreate Archive'.
- 	ServerDirectory addServer: SuperSwikiServer defaultSuperSwiki named: 'Bob SuperSwiki'.
- 	ServerDirectory addServer: (SuperSwikiServer new 
- 		type: #http;
- 		server: 'squeakland.org:8080';
- 		altUrl: 'http://www.squeakland.org/uploads';
- 		directory: '/super/SuperSwikiProj';
- 		keepAlive: false;
- 		acceptsUploads: true) named: 'Squeakland SuperSwiki'.
- 	ServerDirectory addServer: (HTTPServerDirectory new 
- 		type: #ftp;
- 		user: 'sqland';
- 		server: 'www.squeakland.org';
- 		altUrl: 'http://www.squeakland.org/projects';
- 		directory: 'projects';
- 		keepAlive: false) named: 'Squeakland Projects'.
- 
- "Add the update streams here just as Squeakland does?
- 	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 changed:
  ReleaseBuilder subclass: #ReleaseBuilderSqueakland
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'ReleaseBuilder'!
  
  !ReleaseBuilderSqueakland commentStamp: '<historical>' prior: 0!
+ ReleaseBuilderSqueakland new prepareReleaseImage!
- To make OLPC etoys.image from developer's image:
- 
- - place project files for  'Gallery' 'EtoysActivity', and "Tutorials".
- - set screen size as 1200 @ 900.
- - save as 'etoys.image'.
- ReleaseBuilderSqueakland new prepareReleaseImageForOLPC.!

Item was added:
+ ----- Method: ReleaseBuilderSqueakland>>buildInitialScreen (in category 'squeakland') -----
+ buildInitialScreen
+ 	"ReleaseBuilderSqueakland new buildInitialScreen"
+ 
+ 	QuickGuideMorph preloadIndexPage.
+ 
+ 	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>>buildInitialScreenForSqueakland (in category 'squeakland') -----
- buildInitialScreenForSqueakland
- 	"ReleaseBuilderSqueakland new buildInitialScreenForSqueakland"
- 
- 	"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 changed:
  ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
  finalStripping
  	"ReleaseBuilderSqueakland new finalStripping"
  
  	#(#Helvetica #Palatino #Courier #ComicSansMS )
  		do: [:n | TextConstants
  				removeKey: n
  				ifAbsent: []].
+ 	QuickGuideMorph indexPage: nil.
  	Smalltalk
  		at: #Player
  		ifPresent: [:superCls | superCls
  				allSubclassesDo: [:cls | 
  					cls isSystemDefined
  						ifFalse: [cls removeFromSystem].
  					cls := nil]].
  	Smalltalk garbageCollect.
  	SystemOrganization removeEmptyCategories.
  !

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

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