Eliot Miranda uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-eem.167.mcz
==================== Summary ====================
Name: MonticelloConfigurations-eem.167 Author: eem Time: 28 July 2021, 11:57:05.293004 am UUID: e4621e20-5599-455c-be27-a80129b16abc Ancestors: MonticelloConfigurations-mt.166
Include the repository name in the Update completed messaeg logged to the Transcript. This because we have multiple update streams (e.g. trunk, 5.x, VMMaker, etc), and knowing which was updated is useful when looking back at the transcript.
=============== Diff against MonticelloConfigurations-mt.166 ===============
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"
+ | previousUpdateLevel ensureTranscriptSetting | - | config previousUpdateLevel ensureTranscriptSetting | previousUpdateLevel := SystemVersion current highestUpdate. MCFileBasedRepository flushAllCaches. ensureTranscriptSetting := MCConfiguration ensureOpenTranscript. + [MCConfiguration ensureOpenTranscript: interactive. + self updateFromRepository + 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 ] + ifNotNil: [:config| self logUpdateOf: config previousUpdateLevel: previousUpdateLevel interactive: interactive]] + ensure: + [MCConfiguration ensureOpenTranscript: ensureTranscriptSetting]! - [ MCConfiguration ensureOpenTranscript: interactive. - config := self updateFromRepository. - 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: (self updateMessageFor: previousUpdateLevel)]. - Transcript cr; - show: '========== Update completed: ' translated; - show: previousUpdateLevel; - show: ' -> ' ; - show: SystemVersion current highestUpdate; - show: ' =========='; cr ] - ifFalse: [ - interactive - ifTrue: [ self inform: 'Update completed.' ]. - Transcript cr; show: '========== Update completed. ==========' translated; cr ] ] - ensure: [ MCConfiguration ensureOpenTranscript: ensureTranscriptSetting]. - - !
Item was changed: ----- Method: MCMcmUpdater>>doUpdate:upTo: (in category 'updating') ----- doUpdate: interactive upTo: versionNumber "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. MCFileBasedRepository flushAllCaches. config := self updateFromRepositories: { self repository } upTo: versionNumber. 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 ]. + self logUpdateOf: config previousUpdateLevel: previousUpdateLevel interactive: interactive - MCMcmUpdater default == self - ifTrue: [ - config setSystemVersion. - interactive ifTrue: [ - self inform: (self updateMessageFor: previousUpdateLevel)]. - Transcript cr; - show: '========== Update completed: ' translated; - show: previousUpdateLevel; - show: ' -> ' ; - show: SystemVersion current highestUpdate; - show: ' =========='; cr ] - ifFalse: [ - interactive - ifTrue: [ self inform: 'Update completed.' ]. - Transcript cr; show: '========== Update completed. ==========' translated; cr ] !
Item was added: + ----- Method: MCMcmUpdater>>logUpdateOf:previousUpdateLevel:interactive: (in category 'updating') ----- + logUpdateOf: config previousUpdateLevel: previousUpdateLevel interactive: interactive + MCMcmUpdater default == self + ifTrue: [ + config setSystemVersion. + interactive ifTrue: [ + self inform: (self updateMessageFor: previousUpdateLevel)]. + Transcript cr; + show: '========== Update of ' translated, self repositoryName, ' completed: ' translated; + show: previousUpdateLevel; + show: ' -> ' ; + show: SystemVersion current highestUpdate; + show: ' =========='; cr ] + ifFalse: [ + interactive + ifTrue: [ self inform: 'Update of ', self repositoryName, ' completed.' ]. + Transcript cr; show: '========== Update of ' translated, self repositoryName, ' completed. ==========' translated; cr ] + + !
Item was added: + ----- Method: MCMcmUpdater>>repositoryName (in category 'private') ----- + repositoryName + ^repository allButFirst: (repository lastIndexOf: $/ ifAbsent: [0])!