[Pkg] The Trunk: Installer-Core-cmm.346.mcz

[commits at source.squeak.org]

Chris Muller uploaded a new version of Installer-Core to project The Trunk:
http://source.squeak.org/trunk/Installer-Core-cmm.346.mcz

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

Name: Installer-Core-cmm.346
Author: cmm
Time: 5 April 2011, 9:45:13.488 pm
UUID: c579dac3-6487-4420-a28d-5bb93c029215
Ancestors: Installer-Core-cmm.345

- Quick-fix for Installer; to be able to specify packages either with or without a version-number.

=============== Diff against Installer-Core-cmm.345 ===============

Item was changed:
  ----- Method: InstallerMonticello>>mcThing (in category 'monticello') -----
  mcThing
  	| loader |
  	loader := self classMCVersionLoader new.
  	self logCR: 'reading ' , mc description , '...'.
+ 	"several attempts to read files - repository readableFileNames
+ 	sometimes fails"
+ 	self packages
+ 		do: [:pkg | 
+ 			| fileToLoad version |
+ 			fileToLoad := pkg asMCVersionName versionNumber = 0
+ 						ifTrue: [mc highestNumberedVersionNameForPackageNamed: pkg]
+ 						ifFalse: [pkg asMCVersionName].
+ 			version := mc versionNamed: fileToLoad.
+ 			(version isKindOf: MCConfiguration)
+ 				ifTrue: [^ version]
+ 				ifFalse: [MCRepositoryGroup default addRepository: self normalizedRepository.
+ 					version workingCopy repositoryGroup addRepository: self normalizedRepository.
+ 					loader addVersion: version].
+ 			self logCR: ' found ' , version fileName , '...'].
- 	"several attempts to read files - repository readableFileNames sometimes fails"
- 	self packages do:
- 		[ : pkg | | fileToLoad version |
- 		fileToLoad := mc highestNumberedVersionNameForPackageNamed: pkg.
- 		version := mc versionNamed: fileToLoad.
- 		(version isKindOf: MCConfiguration)
- 			ifTrue: [ ^ version ]
- 			ifFalse:
- 				[ MCRepositoryGroup default addRepository: self normalizedRepository.
- 				version workingCopy repositoryGroup addRepository: self normalizedRepository.
- 				loader addVersion: version ].
- 		self logCR: ' found ' , version fileName , '...' ].
  	^ loader!