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

commits at source.squeak.org commits at source.squeak.org
Tue Dec 10 21:46:31 UTC 2013

Frank Shearar uploaded a new version of System to project The Trunk:

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

Name: System-fbs.641
Author: fbs
Time: 10 December 2013, 9:31:05.408 pm
UUID: 7f3758d1-fed5-5443-a2af-6ce6461597ff
Ancestors: System-fbs.640

Make the #updateFromServerAtStartup preference a pragma preference. Update the old call sites. Remove the preference in the postscript.

(Also, move #setSystemVersion to its more natural home. Extensions are great, but in this case we don't need one.)

=============== Diff against System-fbs.640 ===============

Item was changed:
  ----- Method: AutoStart class>>processUpdates (in category 'updating') -----
  	"Process update files from a well-known update server.  This method is called at system startup time,   Only if the preference #updateFromServerAtStartup is true is the actual update processing undertaken automatically"
  	| choice |
+ 	(MCMcmUpdater updateFromServerAtStartup) ifTrue:
- 	(Preferences valueOfFlag: #updateFromServerAtStartup) ifTrue:
  		[choice := UIManager default chooseFrom: #('Yes, Update' 'No, Not now' 'Don''t ask again')
  			title: 'Shall I look for new code\updates on the server?' withCRs.
  		choice = 1 ifTrue: [
  			MCMcmUpdater updateFromServer].
  		choice = 3 ifTrue: [
+ 			MCMcmUpdater updateFromServerAtStartup: false.
+ 			self inform: 'Remember to save your image to make this setting permant.']].
- 			Preferences setPreference: #updateFromServerAtStartup toValue: false.
- 			self inform: 'Remember to save you image to make this setting permant.']].

Item was removed:
- ----- 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 removed:
- ----- 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 added:
+ (PackageInfo named: 'System') postscript: 'MCMcmUpdater updateFromServerAtStartup: Preferences updateFromServerAtStartup.
+ Preferences removePreference: #updateFromServerAtStartup.'!

More information about the Packages mailing list