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

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

Name: Installer-Core-nm.356
Author: nm
Time: 15 March 2010, 7:54:04 am
UUID: a1a3fb7e-c272-8643-b625-74df065e9960
Ancestors: Installer-Core-nm.355

previous version has something from other package

=============== Diff against Installer-Core-nm.354 ===============

Item was changed:
  ----- Method: InstallerMonticello>>mcThing (in category 'monticello') -----
  mcThing
  	| loader files fileToLoad  version  count |
  
  	loader := self classMCVersionLoader new.
  	count := 0. files := nil.
  	self logCR: 'reading ', mc description, '...'.
  		"several attempts to read files - repository readableFileNames sometimes fails"
  	[ count := count + 1.
  	 (files = nil) and:[ count < 5 ] ] 
  		whileTrue: [files := mc readableFileNames asSortedCollection: self mcSortFileBlock ].
  	files ifNil: [  Warning signal: 'Repository not readable: ', mc description. ^ nil  ].
  		
  	self packages do: [ :pkg |
  		self log: 'finding ', pkg asString, '...'.
  		
  		fileToLoad := files detect: (self mcDetectFileBlock: pkg) ifNone: [ nil ].
  			fileToLoad  isNil
  			ifTrue:[self logError: 'File ',pkg,' not found'.  version:=  nil. ]
  			ifFalse:[
  				"super super trucho. Por eso el nombre!!!!!!"
+ 				"(TrueCello installedFiles includes: fileToLoad)
- 				(TrueCello installedFiles includes: fileToLoad)
  					ifTrue:[self logCR: 'File ',fileToLoad, ' already installed. Not loaded']
+ 					ifFalse:[	" version := mc versionFromFileNamed: fileToLoad.			
- 					ifFalse:[	version := mc versionFromFileNamed: fileToLoad.			
  							(version isKindOf: MCConfiguration) 
  							ifTrue: [ ^ version ]
  								ifFalse:[MCRepositoryGroup default addRepository: self normalizedRepository.
  											version workingCopy repositoryGroup addRepository: self normalizedRepository.
+ 											"TrueCello addFile: fileToLoad."
- 											TrueCello addFile: fileToLoad.
  											self logCR: ' found ', version fileName, '...'.
+ 											loader addVersion: version ].
- 											loader addVersion: version ]].
  			
  				].
  	].
  
  	^ loader!