The Trunk: MonticelloConfigurations-nice.63.mcz

Nicolas Cellier uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-nice.63.mcz

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

Name: MonticelloConfigurations-nice.63
Author: nice
Time: 20 October 2009, 12:27:06 pm
UUID: 593988b8-a276-3f43-adb4-2a5fb31853ff
Ancestors: MonticelloConfigurations-ar.62

use #fasterKeys

=============== Diff against MonticelloConfigurations-ar.62 ===============

Item was changed:
  ----- Method: MCConfiguration>>updateFromRepositories (in category 'updating') -----
  updateFromRepositories
  | oldInfos newNames sortedNames newDeps |
  oldInfos := self dependencies collect: [:dep | dep versionInfo].
  newNames := Dictionary new.
  self repositories
  do: [:repo |
  ProgressNotification signal: '' extra: 'Checking ', repo description.
  (repo possiblyNewerVersionsOfAnyOf: oldInfos)
  do: [:newName | newNames at: newName put: repo]]
  displayingProgress: 'Searching new versions'.
 
+ sortedNames := newNames fasterKeys sort:
- sortedNames := newNames keys asSortedCollection:
  [:a :b | a numericSuffix > b numericSuffix].
 
  newDeps := OrderedCollection new.
  self dependencies do: [:dep |
  | newName |
  newName := sortedNames
  detect: [:each | (each copyUpToLast: $-) = dep package name]
  ifNone: [nil].
  newDeps add: (newName
  ifNil: [dep]
  ifNotNil: [
  | repo info  |
  repo := newNames at: newName.
  info := self versionInfoNamed: newName for: dep from: repo.
  info ifNil: [dep]
  ifNotNil: [MCVersionDependency package: dep package info: info]
  ])
  ] displayingProgress: 'downloading new versions'.
 
  self dependencies: newDeps.
  !