Levente Uzonyi uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-ul.41.mcz==================== Summary ====================
Name: ReleaseBuilder-ul.41
Author: ul
Time: 12 December 2009, 2:46:05 am
UUID: cedf8264-9e77-4343-8803-50710b971e39
Ancestors: ReleaseBuilder-bp.40
- replace sends of #ifNotNilDo: to #ifNotNil:, #ifNil:ifNotNilDo: to #ifNil:ifNotNil:, #ifNotNilDo:ifNil: to #ifNotNil:ifNil:
=============== Diff against ReleaseBuilder-bp.40 ===============
Item was changed:
----- Method: ReleaseBuilderFor3dot11>>loadLastVersion: (in category 'updates') -----
loadLastVersion: aListOfPackageNames
| mcw montiNames package version |
mcw := MCWorkingCopyBrowser new
repository: (MCHttpRepository
location: '
http://source.squeakfoundation.org/trunk' user: ''
password: '').
mcw repository
+ ifNotNil: [:repos | montiNames := repos readableFileNames].
- ifNotNilDo: [:repos | montiNames := repos readableFileNames].
aListOfPackageNames
do: [:mo |
package := montiNames
detect: [:ea | (ea findTokens: '-' ) first = mo]
ifNone: [].
package
ifNotNil: [version := mcw repository loadVersionFromFileNamed: package.
version load]].
^ version!
Item was changed:
----- Method: ReleaseBuilderFor3dot10>>loadLastVersion: (in category 'packages') -----
loadLastVersion: aListOfPackageNames
| mcw montiNames package version |
mcw := MCWorkingCopyBrowser new repository: (MCHttpRepository
location: '
http://source.squeakfoundation.org/39a' user: ''
password: '').
+ mcw repository ifNotNil: [:repos | montiNames := repos readableFileNames ].
- mcw repository ifNotNilDo: [:repos | montiNames := repos readableFileNames ].
aListOfPackageNames do: [:mo |
package := (montiNames detect:[:ea| ea beginsWith: mo] ifNone:[] ) .
package ifNotNil: [
version := mcw repository loadVersionFromFileNamed: package.
version load]].
^version!