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 ]
  	!