Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-cmm.75.mcz==================== Summary ====================
Name: ReleaseBuilder-cmm.75
Author: cmm
Time: 4 January 2012, 8:17:50.446 pm
UUID: 0a8b52fa-484e-416c-bc57-494df8c3f130
Ancestors: ReleaseBuilder-chc.74
Fix.
=============== Diff against ReleaseBuilder-chc.74 ===============
Item was changed:
----- 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 ] ] ] ]!
- MCWorkingCopy allManagers
- do: [:eachWorkingCopy | eachWorkingCopy ancestors
- do: [:eachVersionInfo | (releaseRep includesVersionNamed: eachVersionInfo versionName)
- ifFalse: [releaseRep
- storeVersion: (trunkRep versionNamed: eachVersionInfo versionName)]]]!