The Trunk: System-bf.195.mcz

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

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

Name: System-bf.195
Author: bf
Time: 12 December 2009, 3:01 am
UUID: 3286e7c0-59f6-466c-b74d-9de64b4b1843
Ancestors: System-bf.194

- after updating trunk, set the current system version to the latest date found in all system packages. Also set the highest update number to the sum of version numbers.

=============== Diff against System-nice.192 ===============

Item was changed:
  ----- Method: Utilities class>>updateFromServer (in category 'fetching updates') -----
  updateFromServer
  "Update the image by loading all pending updates from the server.  Also save local copies of the update files if the #updateSavesFile preference is set to true"
+ | config |
+ config := MCMcmUpdater updateFromRepositories: #(
- MCMcmUpdater updateFromRepositories: #(
  'http://source.squeak.org/trunk'
+ ).
+ self setSystemVersionFromConfig: config.
- )
  "self readServerUpdatesSaveLocally: Preferences updateSavesFile updateImage: true"!

Item was added:
+ ----- Method: Utilities class>>setSystemVersionFromConfig: (in category 'fetching updates') -----
+ setSystemVersionFromConfig: anMCConfiguration
+ "Set the current system version date to the latest date found in anMCConfiguration (or the associated working copy). Also set the highest update number to the sum of version numbers in the config."
+
+ | versionNumbers versionDates |
+ versionNumbers := anMCConfiguration dependencies collect: [:d |
+ (d versionInfo name copyAfterLast: $.) asInteger].
+ versionDates := anMCConfiguration dependencies collect: [:d |
+ d versionInfo date
+ ifNil: [d package workingCopy ancestors first date]].
+ SystemVersion current
+ date: versionDates max;
+ highestUpdate: versionNumbers sum.
+ !