The Trunk: MonticelloConfigurations-bf.101.mcz

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