The Trunk: MonticelloConfigurations-dtl.142.mcz

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-dtl.142.mcz

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

Name: MonticelloConfigurations-dtl.142
Author: dtl
Time: 25 October 2015, 6:08:54.084 pm
UUID: c87d888b-1820-43f0-bc7b-9c4988d3d263
Ancestors: MonticelloConfigurations-dtl.141

On completion, an interactive system update blocks the UI with a notifier. Allow the notifier to be bypassed for scripted updates, and write a message to the transcript in either case.

=============== Diff against MonticelloConfigurations-dtl.141 ===============

Item was changed:
  ----- Method: MCMcmUpdater>>doUpdate (in category 'updating') -----
  doUpdate
  "Update the image by loading all pending updates from the server. If this is
+ the default updater for the system, update the system version when complete.
+ Flush all caches. If a previous download failed this is often helpful"
+
+ ^self doUpdate: true
+ !
- the default updater for the system, update the system version when complete."
- | config |
- "Flush all caches. If a previous download failed this is often helpful"
- MCFileBasedRepository flushAllCaches.
- config := self updateFromRepositories: { self repository }.
- config ifNil: [^self inform: 'Unable to retrieve updates from remote repository.' translated].
- MCMcmUpdater default == self
- ifTrue: [ config setSystemVersion.
- self inform: ('Update completed.
- Current update number: ' translated, SystemVersion current highestUpdate).]
- ifFalse: [self inform: 'Update completed.']
- !

Item was added:
+ ----- Method: MCMcmUpdater>>doUpdate: (in category 'updating') -----
+ doUpdate: interactive
+ "Update the image by loading all pending updates from the server. If this is
+ the default updater for the system, update the system version when complete.
+ If interteractive use a modal notifier, otherwise only update the transcript.
+ Flush all caches. If a previous download failed this is often helpful"
+
+ | config |
+ MCFileBasedRepository flushAllCaches.
+ config := self updateFromRepositories: { self repository }.
+ config ifNil: [
+ interactive ifTrue: [ ^self inform: 'Unable to retrieve updates from remote repository.' translated ].
+ Transcript cr; show: '==========  Unable to retrieve updates from remote repository. ==========' translated; cr.
+ ^ self ].
+ MCMcmUpdater default == self
+ ifTrue: [ config setSystemVersion.
+ interactive ifTrue: [ self inform: ('Update completed.
+ Current update number: ' translated, SystemVersion current highestUpdate) ].
+ Transcript cr;
+ show: '==========  Update completed. Current update number ' translated;
+ show: SystemVersion current highestUpdate;
+ show: ' =========='; cr ]
+ ifFalse: [
+ interactive
+ ifTrue: [ self inform: 'Update completed.' ].
+ Transcript cr; show: '==========  Update completed. ==========' translated; cr ]
+ !