The Trunk: ReleaseBuilder-fbs.77.mcz

Frank Shearar uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-fbs.77.mcz

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

Name: ReleaseBuilder-fbs.77
Author: fbs
Time: 4 December 2012, 10:32:43.045 am
UUID: fdbcec1f-a534-4070-b03f-1604faa4220a
Ancestors: ReleaseBuilder-cmm.76

Squeak 4.4 ReleaseBuilder.

This renames ReleaseBuilderTrunk as ReleaseBuilderFor4dot3, and pulls some useful bits up to ReleaseBuilder for the 4.4 builder to reuse.

=============== Diff against ReleaseBuilder-cmm.76 ===============

Item was added:
+ ----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') -----
+ prepareNewBuild
+ "ReleaseBuilderTrunk prepareNewBuild"
+ "Prepare everything that should be done for a new image build"
+ TTCFont registerAll.
+ RealEstateAgent standardSize: 400@500.
+ SystemVersion setVersion.
+ SMLoaderPlus
+ setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable).
+ self setDisplayExtent: 800 @ 600;
+ setPreferences;
+ switchToNewRepository;
+ openWelcomeWorkspaces.
+ "Make DependencyBrowser accessible on the open menu."
+ DependencyBrowser initialize.
+ Smalltalk cleanUp: true.
+ Undeclared removeUnreferencedKeys.
+ Smalltalk garbageCollect!

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

Item was added:
+ ----- Method: ReleaseBuilder class>>switchToNewRepository (in category 'private') -----
+ switchToNewRepository
+ self subclassResponsibility!

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

Item was added:
+ ----- Method: ReleaseBuilder class>>trunkRepository (in category 'private') -----
+ trunkRepository
+ ^ MCHttpRepository
+ location: self repositoryUrl , '/trunk'
+ user: 'squeak'
+ password: 'squeak'!

Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderFor4dot3
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'ReleaseBuilder'!
+
+ !ReleaseBuilderFor4dot3 commentStamp: 'fbs 12/3/2012 09:47' prior: 0!
+ This is the release builder for Squeak 4.3. It was formerly known as ReleaseBuilderTrunk.!

Item was added:
+ ----- Method: ReleaseBuilderFor4dot3 class>>openWelcomeWorkspaces (in category 'private') -----
+ openWelcomeWorkspaces
+ TheWorldMainDockingBar instance
+ showWelcomeText: #squeakUserInterface
+ label: 'Squeak User Interface'
+ in: (40 @ 40 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #workingWithSqueak
+ label: 'Working With Squeak'
+ in: (80 @ 80 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #licenseInformation
+ label: 'License Information'
+ in: (120 @ 120 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeFutureDirections
+ label: 'Future Directions'
+ in: (160 @ 160 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeToSqueak43
+ label: 'Welcome to Squeak 4.3'
+ in: (200 @ 200 extent: 500 @ 300)!

Item was added:
+ ----- Method: ReleaseBuilderFor4dot3 class>>releaseRepository (in category 'private') -----
+ releaseRepository
+ ^ MCHttpRepository
+ location: self repositoryUrl , '/squeak43'
+ user: 'squeak'
+ password: 'squeak'!

Item was added:
+ ----- Method: ReleaseBuilderFor4dot3 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 added:
+ ----- Method: ReleaseBuilderFor4dot3 class>>setPreferences (in category 'private') -----
+ setPreferences
+ Preferences
+ installBrightWindowColors ;
+ setPreference: #scrollBarsWithoutMenuButton toValue: true ;
+ setPreference: #swapMouseButtons toValue: true ;
+ setPreference: #annotationPanes toValue: true ;
+ setPreference: #showSplitterHandles toValue: false ;
+ setPreference: #showBoundsInHalo toValue: true ;
+ setPreference: #alternateHandlesLook toValue: false ;
+ setPreference: #roundedMenuCorners toValue: false ;
+ setPreference: #roundedWindowCorners toValue: false.
+ PluggableButtonMorph roundedButtonCorners: false.
+ FillInTheBlankMorph roundedDialogCorners: false.
+ Workspace shouldStyle: false!

Item was added:
+ ----- Method: ReleaseBuilderFor4dot3 class>>switchToNewRepository (in category 'private') -----
+ switchToNewRepository
+ | old42Repository |
+ MCMcmUpdater defaultUpdateURL: 'http://source.squeak.org/squeak43'.
+ old42Repository := MCRepositoryGroup default repositories
+ detect: [:each | each description includesSubString: 'squeak42'] ifNone: [nil].
+ old42Repository
+ ifNotNil: [MCRepositoryGroup default removeRepository: old42Repository].
+ MCRepositoryGroup default addRepository: self releaseRepository!

Item was added:
+ ReleaseBuilder subclass: #ReleaseBuilderFor4dot4
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'ReleaseBuilder'!
+
+ !ReleaseBuilderFor4dot4 commentStamp: 'fbs 10/24/2012 09:20' prior: 0!
+ The release builder for Squeak 4.4!

Item was added:
+ ----- Method: ReleaseBuilderFor4dot4 class>>openWelcomeWorkspaces (in category 'private') -----
+ openWelcomeWorkspaces
+ TheWorldMainDockingBar instance
+ showWelcomeText: #squeakUserInterface
+ label: 'Squeak User Interface'
+ in: (40 @ 40 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #workingWithSqueak
+ label: 'Working With Squeak'
+ in: (80 @ 80 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #licenseInformation
+ label: 'License Information'
+ in: (120 @ 120 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeFutureDirections
+ label: 'Future Directions'
+ in: (160 @ 160 extent: 500 @ 300).
+ TheWorldMainDockingBar instance
+ showWelcomeText: #welcomeToSqueak44
+ label: 'Welcome to Squeak 4.4'
+ in: (200 @ 200 extent: 500 @ 300)!

Item was added:
+ ----- Method: ReleaseBuilderFor4dot4 class>>releaseRepository (in category 'private') -----
+ releaseRepository
+ ^ MCHttpRepository
+ location: 'http://source.squeak.org/squeak44'
+ user: 'squeak'
+ password: 'squeak'!

Item was added:
+ ----- Method: ReleaseBuilderFor4dot4 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 added:
+ ----- Method: ReleaseBuilderFor4dot4 class>>setPreferences (in category 'private') -----
+ setPreferences
+ Preferences
+ installBrightWindowColors ;
+ setPreference: #scrollBarsWithoutMenuButton toValue: true ;
+ setPreference: #swapMouseButtons toValue: true ;
+ setPreference: #annotationPanes toValue: true ;
+ setPreference: #showSplitterHandles toValue: false ;
+ setPreference: #showBoundsInHalo toValue: true ;
+ setPreference: #alternateHandlesLook toValue: false ;
+ setPreference: #roundedMenuCorners toValue: false ;
+ setPreference: #roundedWindowCorners toValue: false.
+ PluggableButtonMorph roundedButtonCorners: false.
+ FillInTheBlankMorph roundedDialogCorners: false.
+ Workspace shouldStyle: false!

Item was added:
+ ----- Method: ReleaseBuilderFor4dot4 class>>switchToNewRepository (in category 'private') -----
+ switchToNewRepository
+ | old43Repository |
+ MCMcmUpdater defaultUpdateURL: self releaseRepository location.
+ old43Repository := MCRepositoryGroup default repositories
+ detect: [:each | each description includesSubString: 'squeak43'] ifNone: [nil].
+ old43Repository
+ ifNotNil: [MCRepositoryGroup default removeRepository: old43Repository].
+ MCRepositoryGroup default addRepository: self releaseRepository!

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderTrunk
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'ReleaseBuilder'!

Item was removed:
- ----- Method: ReleaseBuilderTrunk class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- TheWorldMainDockingBar instance
- showWelcomeText: #squeakUserInterface
- label: 'Squeak User Interface'
- in: (40 @ 40 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #workingWithSqueak
- label: 'Working With Squeak'
- in: (80 @ 80 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #licenseInformation
- label: 'License Information'
- in: (120 @ 120 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeFutureDirections
- label: 'Future Directions'
- in: (160 @ 160 extent: 500 @ 300).
- TheWorldMainDockingBar instance
- showWelcomeText: #welcomeToSqueak43
- label: 'Welcome to Squeak 4.3'
- in: (200 @ 200 extent: 500 @ 300)!

Item was removed:
- ----- Method: ReleaseBuilderTrunk class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- "ReleaseBuilderTrunk prepareNewBuild"
- "Prepare everything that should be done for a new image build"
- TTCFont registerAll.
- RealEstateAgent standardSize: 400@500.
- SystemVersion setVersion.
- SMLoaderPlus
- setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable).
- self setDisplayExtent: 800 @ 600;
- setPreferences;
- switchTo43Repository;
- openWelcomeWorkspaces.
- "Make DependencyBrowser accessible on the open menu."
- DependencyBrowser initialize.
- Smalltalk cleanUp: true.
- Undeclared removeUnreferencedKeys.
- Smalltalk garbageCollect!

Item was removed:
- ----- Method: ReleaseBuilderTrunk class>>releaseRepository (in category 'private') -----
- releaseRepository
- ^ MCHttpRepository
- location: self repositoryUrl , '/squeak43'
- user: 'squeak'
- password: 'squeak'!

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

Item was removed:
- ----- Method: ReleaseBuilderTrunk 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: ReleaseBuilderTrunk class>>setPreferences (in category 'private') -----
- setPreferences
- Preferences
- installBrightWindowColors ;
- setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- setPreference: #swapMouseButtons toValue: true ;
- setPreference: #annotationPanes toValue: true ;
- setPreference: #showSplitterHandles toValue: false ;
- setPreference: #showBoundsInHalo toValue: true ;
- setPreference: #alternateHandlesLook toValue: false ;
- setPreference: #roundedMenuCorners toValue: false ;
- setPreference: #roundedWindowCorners toValue: false.
- PluggableButtonMorph roundedButtonCorners: false.
- FillInTheBlankMorph roundedDialogCorners: false.
- Workspace shouldStyle: false!

Item was removed:
- ----- Method: ReleaseBuilderTrunk class>>switchTo43Repository (in category 'private') -----
- switchTo43Repository
- | old42Repository |
- MCMcmUpdater defaultUpdateURL: 'http://source.squeak.org/squeak43'.
- old42Repository := MCRepositoryGroup default repositories
- detect: [:each | each description includesSubString: 'squeak42'] ifNone: [nil].
- old42Repository
- ifNotNil: [MCRepositoryGroup default removeRepository: old42Repository].
- MCRepositoryGroup default addRepository: self releaseRepository!

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

Item was removed:
- ----- Method: ReleaseBuilderTrunk class>>trunkRepository (in category 'private') -----
- trunkRepository
- ^ MCHttpRepository
- location: self repositoryUrl , '/trunk'
- user: 'squeak'
- password: 'squeak'!