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. !