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

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

Name: Installer-Core-kph.260
Author: kph
Time: 8 December 2008, 4:35:08 am
UUID: cae458d7-9ae3-4770-9fda-c97973d30ada
Ancestors: Installer-Core-kph.259

if mc package is not found raise a warning

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

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 ].
  		].
  
+ 		fileToLoad ifNil: [ Warning signal: 'Package: ', self package ,' not found in repository: ', mc description. ^ nil ].
  		version := mc versionFromFileNamed: fileToLoad.
  		(version isKindOf: MCConfiguration) 
  			ifTrue: [ ^ version ]
  			ifFalse:[
  				MCRepositoryGroup default addRepository: self normalizedRepository.
  				version workingCopy repositoryGroup addRepository: self normalizedRepository.
  				loader addVersion: version].
  		self log: ' found ', version fileName, '...'.
  
  		packages removeFirst.
  	].
  
  	^ loader!