[Pkg] Installer: Installer-Core-mtf.249.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-mtf.249.mcz

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

Name: Installer-Core-mtf.249
Author: mtf
Time: 25 October 2008, 1:24:10 pm
UUID: db11f96c-2136-49bd-8bcf-547fc3590891
Ancestors: Installer-Core-mtf.248

Make sure we use the same repository instances that MC already uses when adding repositories to the list. Otherwise the saved usernames and passwords are not shared accross packages from one repository. This fixes issue 1 at
http://code.google.com/p/pharo/issues/detail?id=287



=============== Diff against Installer-Core-mtf.248 ===============

Item was added:
+ ----- Method: InstallerMonticello>>normalizedRepository (in category 'monticello') -----
+ normalizedRepository
+ "Find an existing instance of the active repository so that we use whatever name and password the user usually uses. If not found, answer a copy"
+ 
+ 	MCRepositoryGroup default repositoriesDo: [:ea |
+ 		mc = ea ifTrue: [^ ea]].
+ 	^ mc copy!

Item was changed:
  ----- Method: InstallerMonticello>>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:[
+ 				MCRepositoryGroup default addRepository: self normalizedRepository.
+ 				version workingCopy repositoryGroup addRepository: self normalizedRepository.
- 			ifFalse:[version workingCopy repositoryGroup addRepository: mc.
  				loader addVersion: version].
  		self log: ' found ', version fileName, '...'.
  
  		packages removeFirst.
  	].
  
  	^ loader!