[squeak-dev] The Trunk: MonticelloConfigurations-bf.101.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Feb 24 15:29:01 UTC 2012


Bert Freudenberg uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-bf.101.mcz

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

Name: MonticelloConfigurations-bf.101
Author: bf
Time: 24 February 2012, 4:28:40.632 pm
UUID: 24806c61-8131-4596-98a1-5e6b9abce383
Ancestors: MonticelloConfigurations-bf.100

- when updating, keep on the same branch

=============== Diff against MonticelloConfigurations-bf.100 ===============

Item was changed:
  ----- Method: MCConfiguration>>updateFromRepositoriesWithoutCaching (in category 'updating') -----
  updateFromRepositoriesWithoutCaching
  
  	| oldNames newNames sortedNames newDeps |
  	oldNames := self dependencies collect: [:dep | dep versionInfo versionName].
  	newNames := Dictionary new.
  	self repositories
  		do: [:repo | 
  			ProgressNotification signal: '' extra: 'Checking ', repo description.
  			(repo possiblyNewerVersionsOfAnyOf: oldNames)
  				do: [:newName | newNames at: newName put: repo]]
  		displayingProgress: 'Searching new versions'.
  
  	sortedNames := newNames keys asArray sort:
  		[:a :b | a versionNumber > b versionNumber].
  
  	newDeps := OrderedCollection new: self dependencies size.
  	self dependencies
  		do: [:dep |
  			newDeps add: (sortedNames
+ 				detect: [:each | each packageAndBranchName = dep packageAndBranchName]
- 				detect: [:each | each packageName = dep package name]
  				ifFound: [ :newName |
  					| repo |
  					repo := newNames at: newName.
  					(self versionInfoNamed: newName for: dep from: repo)
  						ifNil: [ dep ]
  						ifNotNil: [ :info |
  							MCVersionDependency package: dep package info: info ] ]
  				ifNone: [ dep ]) ]
  		displayingProgress: 'downloading new versions'.
  
  	self dependencies: newDeps.
  !



More information about the Squeak-dev mailing list