Chris Muller uploaded a new version of ReleaseBuilder to project Squeak 4.5:
http://source.squeak.org/squeak45/ReleaseBuilder-cmm.114.mcz

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

Name: ReleaseBuilder-cmm.114
Author: cmm
Time: 13 February 2014, 11:08:34.352 am
UUID: ea773780-69e1-48dd-a16c-e167acb9de04
Ancestors: ReleaseBuilder-cmm.113

Leave no doubt about configured repositories for public releases.

=============== Diff against ReleaseBuilder-cmm.112 ===============

Item was removed:
- SystemOrganization addCategory: #ReleaseBuilder!

Item was removed:
- Object subclass: #ReleaseBuilder
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!
- 
- !ReleaseBuilder commentStamp: 'fbs 5/2/2013 22:36' prior: 0!
- I'm the script that prepares a trunk image for release. Which version of Squeak I release is stored in ReleaseBuilder class >> squeakVersion.!

Item was removed:
- ----- Method: ReleaseBuilder class>>buildRepository (in category 'private') -----
- buildRepository
- 	^ MCRepository trunk!

Item was removed:
- ----- Method: ReleaseBuilder class>>checkForDirtyPackages (in category 'scripts') -----
- checkForDirtyPackages
- 	MCWorkingCopy checkModified: true.
- 	(MCWorkingCopy allManagers anySatisfy:
- 		[ : wc | (wc ancestors size = 1) not or: [ wc modified ] ]) ifTrue: [ Warning signal: 'There are dirty and/or unmerged packages.' ]!

Item was removed:
- ----- Method: ReleaseBuilder class>>configureDesktop (in category 'private') -----
- configureDesktop
- 	self deleteAllWindows.
- 	MorphicProject initialize.
- 	"Replace docking bar instance in case its code has changed."
- 	Project current removeMainDockingBar.
- 	TheWorldMainDockingBar updateInstances!

Item was removed:
- ----- Method: ReleaseBuilder class>>deleteAllWindows (in category 'private') -----
- deleteAllWindows
- 	(SystemWindow
- 		windowsIn: ActiveWorld
- 		satisfying:
- 			[ : window | true ]) do:
- 				[ : window | [ window makeClosable; delete ]
- 					on: ProvideAnswerNotification
- 					do: [ : noti | noti resume: true ] ]!

Item was removed:
- ----- Method: ReleaseBuilder class>>loadWellKnownPackages (in category 'private') -----
- loadWellKnownPackages
- 	"Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
- 	Installer new merge: #squeakRelease!

Item was removed:
- ----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- 	self prepareNewBuild: self buildRepository.!

Item was removed:
- ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') -----
- prepareNewBuild: anMCRepository 
- 	"ReleaseBuilderTrunk prepareNewBuild"
- 	"Prepare everything that should be done for a new image build"
- 	MCMcmUpdater updateMissingPackages: true.
- 	MCMcmUpdater enableUpdatesForAllPackages.
- 	TTCFont registerAll.
- 	RealEstateAgent standardSize: 600 @ 400.
- 	SystemVersion newVersion: self versionString.
- 	SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable).
- "	Preferences outOfTheBox."  "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up."
- 	self
- 		 setDisplayExtent: 800 @ 600 ;
- 		 switchToNewRepository: anMCRepository ;
- 		 setPreferences ;  "<-- remove this after defaultValueTableForCurrentRelease is fixed up."
- 		 checkForDirtyPackages ;
- 		 configureDesktop.
- 	Smalltalk cleanUp: true.
- 	"Let's be explicit about clearing passwords for the publicly-consumed build."
- 	"clearPasswords is not very thorough, it should be improved."
- 	MCHttpRepository clearPasswords.
- 	Utilities setAuthorInitials: String empty.
- 	Environment allInstancesDo: [ : env | env purgeUndeclared ].
- 	Undeclared removeUnreferencedKeys.
- 	Smalltalk garbageCollect.
- 	[ self loadWellKnownPackages "<-- 4.5 is not ready for unloaded / reloaded packages" ].
- 	Compiler recompileAll!

Item was removed:
- ----- Method: ReleaseBuilder class>>prepareNewRelease (in category 'scripts') -----
- prepareNewRelease
- 	"This method is run at time of release to transfer the top trunk versions into my releaseRepository, and produce a release image."
- 	self
- 		transferCurrentPackagesAsUser: Utilities authorInitials
- 		password: (UIManager default requestPassword: 'Enter password for ' , self projectUrl).
- 	self prepareNewBuild: self releaseRepository!

Item was removed:
- ----- Method: ReleaseBuilder class>>projectUrl (in category 'private') -----
- projectUrl
- 	^ (self repositoryUrl , '/', (self versionString copyWithout: $.)) asLowercase!

Item was removed:
- ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') -----
- releaseRepository
- 	^ MCRepository location: self projectUrl!

Item was removed:
- ----- Method: ReleaseBuilder class>>repositoryUrl (in category 'private') -----
- repositoryUrl 
- 	^ 'http://source.squeak.org'!

Item was removed:
- ----- Method: ReleaseBuilder class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- "	DisplayScreen hostWindowSize: extent."
- 	Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!

Item was removed:
- ----- Method: ReleaseBuilder class>>setPreferences (in category 'private') -----
- setPreferences
- 	Workspace shouldStyle: false.
- 	SystemWindow reuseWindows: true.
- 	TextEditor
- 		 autoEnclose: true ;
- 		 autoIndent: false ;
- 		 destructiveBackWord: false ;
- 		 blinkingCursor: false ;
- 		 dumbbellCursor: true.
- 	BalloonMorph setBalloonColorTo:
- 		(TranslucentColor
- 			r: 0.92
- 			g: 0.92
- 			b: 0.706
- 			alpha: 0.75).
- 	Preferences
- 		 installBrightWindowColors ;
- 		 insertionPointColor: Color red ;
- 		 enable: #scrollBarsWithoutMenuButton ;
- 		 enable: #swapMouseButtons ;
- 		 enable: #annotationPanes ;
- 		 disable: #showSplitterHandles ;
- 		 enable: #showBoundsInHalo ;
- 		 disable: #alternateHandlesLook ;
- 		 disable: #roundedMenuCorners ;
- 		 disable: #roundedWindowCorners ;
- 		 enable: #traceMessages ;
- 		 enable: #thoroughSenders ;
- 		 enable: #diffsWithPrettyPrint ;
- 		 disable: #alwaysShowVScrollbar ;
- 		 enable: #alternativeBrowseIt.
- 	ProportionalSplitterMorph
- 		 smartHorizontalSplitters: false ;
- 		 smartVerticalSplitters: false.
- 	PluggableButtonMorph roundedButtonCorners: false.
- 	FillInTheBlankMorph roundedDialogCorners: false.
- 	Workspace shouldStyle: false.
- 	NetNameResolver enableIPv6: false!

Item was removed:
- ----- Method: ReleaseBuilder class>>switchToNewRepository: (in category 'private') -----
- switchToNewRepository: anMCRepository
- 	| old44Repository |
- 	MCMcmUpdater defaultUpdateURL: anMCRepository description.
- 	old44Repository := MCRepositoryGroup default repositories
- 				detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
- 	old44Repository
- 		ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
- 	MCRepositoryGroup default addRepository: anMCRepository.!

Item was removed:
- ----- Method: ReleaseBuilder class>>transferCurrentPackagesAsUser:password: (in category 'scripts') -----
- transferCurrentPackagesAsUser: username password: password
- 	"Copy the packages currently loaded in the image from the trunk repository to my releaseRepository."
- 	| releaseRep |
- 	releaseRep := self releaseRepository
- 		user: username;
- 		password: password;
- 		yourself.
- 	MCWorkingCopy allManagers do:
- 		[ : eachWorkingCopy | eachWorkingCopy ancestors do:
- 			[ : eachVersionInfo | (releaseRep includesVersionNamed: eachVersionInfo versionName) ifFalse:
- 				[ (MCRepository trunk versionWithInfo: eachVersionInfo)
- 					ifNil: [ Warning signal: eachVersionInfo name , ' not found in trunk.' ]
- 					ifNotNilDo: [ : ver | releaseRep storeVersion: ver ] ] ] ]!

Item was removed:
- ----- Method: ReleaseBuilder class>>versionString (in category 'private') -----
- versionString
- 	^ 'Squeak4.5'.!