The Trunk: ReleaseBuilder-ul.41.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: ReleaseBuilder-ul.41.mcz

commits-2
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!