[squeak-dev] The Trunk: ReleaseBuilder-edc.35.mcz

Edgar J. De Cleene uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-edc.35.mcz

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

Name: ReleaseBuilder-edc.35
Author: edc
Time: 26 August 2009, 10:50:01 am
UUID: b2a4004b-d83a-4285-8c99-5426ef900e48
Ancestors: ReleaseBuilder-ar.34

Starting Morphic partition

=============== Diff against ReleaseBuilder-ar.34 ===============

Item was changed:
  ----- Method: ReleaseBuilderFor3dot11>>unloadTraits (in category 'unloadPackages') -----
  unloadTraits
  "ReleaseBuilderFor3dot11 new unloadTraits"
+ " self saveInLadrillos: 'Traits'."
- self saveInLadrillos: 'Traits'.
  self unloadTraitsClearRefs.
  (MCPackage named: 'Traits') unload.
  self unloadTraitsTraitsStubs.
  self fixObsoleteReferences!

Item was added:
+ ----- Method: ReleaseBuilderFor3dot11>>saveInTrunk: (in category 'squeakThreeEleven') -----
+ saveInTrunk: packageName
+
+ " ReleaseBuilderFor3dot11 new saveInTrunk: Foo"
+ | monti repo |
+ monti := MCWorkingCopyBrowser new.
+ repo := MCHttpRepository
+ location: 'http://source.squeak.org/trunk'
+ user: ''
+ password: ''.
+
+
+ (SystemOrganization categoriesMatching: packageName , '*')
+ do: [:cat |
+ | workingCopy |
+ PackageInfo registerPackageName: cat asString.
+ workingCopy := MCWorkingCopy
+ forPackage: (MCPackage new name: cat asString).
+ workingCopy repositoryGroup addRepository: repo.
+ repo user
+ ifEmpty: [repo
+ user: (UIManager default request: 'Trunk Repository username').
+ repo
+ password: (UIManager default request: 'Trunk Repository  password')].
+ repo
+ storeVersion: (workingCopy newVersionWithName: workingCopy uniqueVersionName message: 'Starting Morphic partition')].
+
+ monti workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>saveInLadrillos: (in category 'squeakThreeEleven') -----
- saveInLadrillos: packageName
- | monti ances repo montiNames |
- monti := MCWorkingCopyBrowser new.
- repo := MCHttpRepository
- location: 'http://www.squeaksource.com/Ladrillos'
- user: ''
- password: ''.
- montiNames := repo readableFileNames.
-
- (SystemOrganization categoriesMatching: packageName , '*')
- do: [:cat |
- | workingCopy |
- PackageInfo registerPackageName: cat asString.
- workingCopy := MCWorkingCopy
- forPackage: (MCPackage new name: cat asString).
- workingCopy repositoryGroup addRepository: repo.
- repo user
- ifEmpty: [repo
- user: (UIManager default request: 'Ladrillos Repository username').
- repo
- password: (UIManager default request: 'Ladrillos Repository  password')].
- ances := montiNames
- detect: [:ea | ea beginsWith: cat asString]
- ifNone: [].
- ances
- ifNil: [repo
- storeVersion: (workingCopy newVersionWithName: workingCopy uniqueVersionName message: 'Starting Morphic partition')].
- monti workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList]!