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'.!
Locked
smime.p7s (5K)