[Pkg] The Trunk: System-fbs.620.mcz

[commits at source.squeak.org]

Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.620.mcz

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

Name: System-fbs.620
Author: fbs
Time: 23 November 2013, 9:13:28.936 pm
UUID: a640a27d-9472-204b-8a5d-67c861e94eeb
Ancestors: System-fbs.619

#setSystemVersionFromConfig: clearly belongs better with the parameter's class. #updateFromServer belongs (IMO at least) with the class involved with updating.

Keep the Utilities stubs, but deprecate them.

=============== Diff against System-fbs.619 ===============

Item was added:
+ ----- Method: MCConfiguration>>setSystemVersion (in category '*System-Support-updating') -----
+ setSystemVersion
+ 	"Set the current system version date to the latest date found in my configuration (or the associated working copy). Also set the highest update number to the sum of version numbers in my configuration."
+ 
+ 	| versionNumbers versionDates |
+ 	versionNumbers := self dependencies collect: [:d |
+ 		(d versionInfo name copyAfterLast: $.) asInteger].
+ 	versionDates := self dependencies collect: [:d |
+ 		d versionInfo date
+ 			ifNil: [d package workingCopy ancestors first date]].
+ 	SystemVersion current
+ 		date: versionDates max;
+ 		highestUpdate: versionNumbers sum.!

Item was added:
+ ----- Method: MCMcmUpdater class>>updateFromServer (in category '*System-Support-updating') -----
+ updateFromServer
+ 	"Update the image by loading all pending updates from the server."
+ 	| config |
+ 	"Flush all caches. If a previous download failed this is often helpful"
+ 	MCFileBasedRepository flushAllCaches.
+ 	config := MCMcmUpdater updateFromDefaultRepository.
+ 	config ifNil: [^self inform: 'Unable to retrieve updates from remote repository.' translated].
+ 	config setSystemVersion.
+ 	self inform: ('Update completed.
+ Current update number: ' translated, SystemVersion current highestUpdate).!

Item was removed:
- ----- 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.
- !

Item was removed:
- ----- Method: Utilities class>>updateFromServer (in category 'fetching updates') -----
- updateFromServer
- 	"Update the image by loading all pending updates from the server."
- 	| config |
- 	"Flush all caches. If a previous download failed this is often helpful"
- 	MCFileBasedRepository flushAllCaches.
- 	config := MCMcmUpdater updateFromDefaultRepository.
- 	config ifNil: [^self inform: 'Unable to retrieve updates from remote repository.' translated].
- 	self setSystemVersionFromConfig: config.
- 	self inform: ('Update completed.
- Current update number: ' translated, SystemVersion current highestUpdate).!