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

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

Name: MonticelloConfigurations-mt.156
Author: mt
Time: 12 September 2019, 11:43:32.912062 am
UUID: 1888f76d-1c47-e44f-83bc-a673100cff71
Ancestors: MonticelloConfigurations-dtl.155

Adds a preference to disable the automatic opening of transcript windows.

=============== Diff against MonticelloConfigurations-dtl.155 ===============

Item was changed:
  Object subclass: #MCConfiguration
  	instanceVariableNames: 'name dependencies repositories log'
+ 	classVariableNames: 'DefaultLog EnsureOpenTranscript ExtraProgressInfo LogToFile UpgradeIsMerge'
- 	classVariableNames: 'DefaultLog ExtraProgressInfo LogToFile UpgradeIsMerge'
  	poolDictionaries: ''
  	category: 'MonticelloConfigurations'!
  
  !MCConfiguration commentStamp: 'dtl 5/10/2010 23:03' prior: 0!
  An MCConfiguration specifies the configuration of a set of related Monticello packages. It maintains an ordered list of package versions and a list of repositories in which the packages may be found.
  
  An MCConfiguration may be filed out for storage as an array specification, and new instances can be created from a stored array specification.
  !

Item was added:
+ ----- Method: MCConfiguration class>>ensureOpenTranscript (in category 'preferences') -----
+ ensureOpenTranscript
+ 
+ 	<preference: 'Ensure Open Transcript' 
+ 		category: 'Monticello' 
+ 		description: 'When logging, a transcript will be opened automatically if no one is visible. This setting has no effect when logging to a file.' 
+ 		type: #Boolean>
+ 		
+ 	^EnsureOpenTranscript ifNil:[true]!

Item was added:
+ ----- Method: MCConfiguration class>>ensureOpenTranscript: (in category 'preferences') -----
+ ensureOpenTranscript: aBoolean
+ 
+ 	EnsureOpenTranscript := aBoolean.!

Item was changed:
  ----- Method: MCConfiguration>>log (in category 'accessing') -----
  log
  	"Answer the receiver's log. If no log exist use the default log"
  	
  	^log ifNil: [
+ 		(name notNil and: [ self class logToFile ]) ifFalse: [
+ 			self class ensureOpenTranscript ifTrue: [Transcript openIfNone].
- 		(name notNil and: [ self class logToFile ]) ifFalse: [ 
- 			Transcript countOpenTranscripts = 0 ifTrue: [Transcript open].
  			^Transcript ].
  		self log: ((FileStream fileNamed: self logFileName) setToEnd; yourself).
  		log ]!