The Trunk: MonticelloConfigurations-mt.156.mcz

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