[squeak-dev] The Trunk: ReleaseBuilder-ul.41.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 12 14:26:49 UTC 2009


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!




More information about the Squeak-dev mailing list