The Trunk: MonticelloConfigurations-mt.144.mcz

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-mt.144.mcz

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

Name: MonticelloConfigurations-mt.144
Author: mt
Time: 15 August 2016, 8:55:59.902884 am
UUID: 0a533808-0e9d-d94a-ab25-242f7855dce7
Ancestors: MonticelloConfigurations-mt.143

When updating, tell the user whether there was any update at all and if, what update number was updated from. (This distinction used to be there in some previous Squeak version.)

=============== Diff against MonticelloConfigurations-mt.143 ===============

Item was changed:
  ----- 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 previousUpdateLevel |
+ previousUpdateLevel := SystemVersion current highestUpdate.
- | 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.
- ifTrue: [ config setSystemVersion.
  interactive ifTrue: [
+ self inform: ('Update completed.\\Version: {1}\Update: {3}{2}\\Url: {4}\Map: ''{5}''\\{6}' translated withCRs format: {
- self inform: ('Update completed.\\Version: {1}\Update: {2}\\Url: {3}\Map: ''{4}''\\{5}' translated withCRs format: {
  SystemVersion current version.
  SystemVersion current highestUpdate.
+ previousUpdateLevel = SystemVersion current highestUpdate
+ ifTrue: ['']
+ ifFalse: [previousUpdateLevel asString, ' -> '].
  self repository.
  MCMcmUpdater updateMapName.
  SystemVersion current description})].
  Transcript cr;
+ show: '==========  Update completed:  ' translated;
+ show: previousUpdateLevel;
+ show: ' -> ' ;
- 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 ]
  !