The Inbox: MonticelloConfigurations-dtl.158.mcz

Am 16.02.2020 01:21:17 schrieb [hidden email] <[hidden email]>:

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Inbox:
http://source.squeak.org/inbox/MonticelloConfigurations-dtl.158.mcz

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

Name: MonticelloConfigurations-dtl.158
Author: dtl
Time: 15 February 2020, 7:21:06.721682 pm
UUID: df6a3d9c-f241-451b-a4f7-5b441e0bf29b
Ancestors: MonticelloConfigurations-dtl.157

Allow an MCMcmUpdater to bypass UI updates when not interactive. Force transcript to open, and present concluding OK dialog, only if interactive.

=============== Diff against MonticelloConfigurations-dtl.157 ===============

Item was changed:
----- Method: MCMcmUpdater class>>updateFromRepository:baseName: (in category 'updating') -----
updateFromRepository: updaterUrlKey baseName: baseName
"Update using an MCMcmUpdater identified by updaterUrlKey, and using
update map baseName"

"MCMcmUpdater
updateFromRepository: 'http://squeaksource.com/MCUpdateTest'
baseName: 'update' "

+ ^ self updateFromRepository: updaterUrlKey baseName: baseName interactive: true!
- ^ (self updateMapNamed: baseName repository: updaterUrlKey)
- doUpdate!

Item was added:
+ ----- Method: MCMcmUpdater class>>updateFromRepository:baseName:interactive: (in category 'updating') -----
+ updateFromRepository: updaterUrlKey baseName: baseName interactive: interactive
+ "Update using an MCMcmUpdater identified by updaterUrlKey, and using
+ update map baseName"
+
+ "MCMcmUpdater
+ updateFromRepository: 'http://squeaksource.com/MCUpdateTest'
+ baseName: 'update'
+ interactive: false "
+
+ ^ (self updateMapNamed: baseName repository: updaterUrlKey)
+ doUpdate: interactive!

Item was changed:
----- Method: MCMcmUpdater class>>updateFromServer (in category 'updating') -----
updateFromServer
"Update the image by loading all pending updates from the server."

+ ^self default doUpdate: true
- ^self default doUpdate
!

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

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 ensureTranscriptSetting |
- | config previousUpdateLevel |
previousUpdateLevel := SystemVersion current highestUpdate.
+ MCFileBasedRepository flushAllCaches.
+ ensureTranscriptSetting := MCConfiguration ensureOpenTranscript.
+ [ MCConfiguration ensureOpenTranscript: interactive.
- MCFileBasedRepository flushAllCaches.
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: ('Update completed.\\Version: {1}\Update: {3}{2}\\Url: {4}\Map: ''{5}''{6}' translated withCRs format: {
SystemVersion current version.
SystemVersion current highestUpdate.
previousUpdateLevel = SystemVersion current highestUpdate
ifTrue: ['']
ifFalse: [previousUpdateLevel asString, ' -> '].
self repository.
MCMcmUpdater updateMapName.
SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | String cr, String cr, d]})].
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].
+
- Transcript cr; show: '========== Update completed. ==========' translated; cr ]
!