Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-cmm.59.mcz
==================== Summary ====================
Name: ReleaseBuilder-cmm.59 Author: cmm Time: 1 February 2011, 6:13:53.894 pm UUID: d5a00199-b603-421e-b482-0bc32d1b1f57 Ancestors: ReleaseBuilder-ul.58
Added script for transferring currently-loaded packages from trunk to squeak42 release repository.
=============== Diff against ReleaseBuilder-ul.58 ===============
Item was added: + ----- Method: ReleaseBuilderTrunk classSide>>releaseRepository (in category 'private') ----- + releaseRepository + ^ MCHttpRepository + location: self repositoryUrl , '/squeak42' + user: Utilities authorInitials + password: 'squeak'!
Item was added: + ----- Method: ReleaseBuilderTrunk classSide>>repositoryUrl (in category 'private') ----- + repositoryUrl + ^ 'http://source.squeak.org%27!
Item was changed: ----- Method: ReleaseBuilderTrunk classSide>>switchTo42Repository (in category 'private') ----- switchTo42Repository | old41Repository | MCMcmUpdater defaultUpdateURL: 'http://source.squeak.org/squeak42'. old41Repository := MCRepositoryGroup default repositories detect: [:each | each description includesSubString: 'squeak41']. old41Repository ifNotNil: [MCRepositoryGroup default removeRepository: old41Repository]. + MCRepositoryGroup default addRepository: self releaseRepository! - MCRepositoryGroup default - addRepository: (MCHttpRepository - location: 'http://source.squeak.org/squeak42' - user: 'squeak' - password: 'squeak')!
Item was added: + ----- Method: ReleaseBuilderTrunk classSide>>transferCurrentPackages (in category 'scripts') ----- + transferCurrentPackages + | trunkRep releaseRep | + trunkRep := self trunkRepository. + releaseRep := self releaseRepository. + MCWorkingCopy allManagers + do: [:eachWorkingCopy | eachWorkingCopy ancestors + do: [:eachVersionInfo | (releaseRep includesVersionNamed: eachVersionInfo name) + ifFalse: [releaseRep + storeVersion: (trunkRep versionFromFileNamed: eachVersionInfo name , '.mcz')]]]!
Item was added: + ----- Method: ReleaseBuilderTrunk classSide>>trunkRepository (in category 'private') ----- + trunkRepository + ^ MCHttpRepository + location: self repositoryUrl , '/trunk' + user: Utilities authorInitials + password: ''!
squeak-dev@lists.squeakfoundation.org