[Pkg] Installer: Installer-Core-kph.224.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.224.mcz

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

Name: Installer-Core-kph.224
Author: kph
Time: 17 September 2008, 12:04:42 am
UUID: 9a666af6-3fbf-4810-ab82-1fdbfb0a0578
Ancestors: Installer-Core-kph.223

Go back to previous idea of calling #load on MCConfiguration. Instead fix #load to use MCVersionLoader.

=============== Diff against Installer-Core-kph.223 ===============

Item was changed:
  ----- Method: Installer>>mcThing (in category 'monticello') -----
  mcThing
  
  	| loader files fileToLoad  version  count |
  
  	loader := self classMCVersionLoader new.
  	
  	1 to: self packages size do: [ :n |
  
  		self logCR: 'finding ', self package asString, '...'.
  		"several attempts to read files - repository readableFileNames sometimes fails"
  		count := 0. fileToLoad := nil.
  	
  		[count := count + 1.
  		 (fileToLoad = nil) and:[ count < 5 ] ] 
  			whileTrue: [
  							files := mc readableFileNames asSortedCollection: self mcSortFileBlock.
  							fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ].
  		].
  
  		version := mc versionFromFileNamed: fileToLoad.
  		(version isKindOf: MCConfiguration) 
+ 			ifTrue: [ ^ version ]
+ 			ifFalse:[version workingCopy repositoryGroup addRepository: mc.
+ 				loader addVersion: version].
- 			ifTrue: [^version]
- 			ifFalse:[version workingCopy repositoryGroup addRepository: mc].
  		self log: ' found ', version fileName, '...'.
- 
-   		loader addVersion: version.
  
  		packages removeFirst.
  	].
  
  	^ loader!