The Trunk: ReleaseBuilder-cmm.59.mcz

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'!

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: ''!