[squeak-dev] The Trunk: MonticelloConfigurations-ar.61.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

[squeak-dev] The Trunk: MonticelloConfigurations-ar.61.mcz

commits-2
Andreas Raab uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-ar.61.mcz

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

Name: MonticelloConfigurations-ar.61
Author: ar
Time: 21 August 2009, 9:20:47 am
UUID: abde0d72-8eda-514d-9cd1-a4753f37a044
Ancestors: MonticelloConfigurations-edc.60

Add a preference governing whether to log MC configuration info to disk or to the Transcript.

=============== Diff against MonticelloConfigurations-edc.60 ===============

Item was added:
+ ----- Method: MCConfiguration class>>logToFile (in category 'preferences') -----
+ logToFile
+ "Whether to log configuration info to files by default.
+ If true, logs to a file named after the configuration (config.nn.log).
+ If false, logs to the transcript."
+ <preference: 'Log config info to disk'
+ category: 'Monticello'
+ description: 'If true, configuration information (such as change logs) are logged to disk instead of the Transcript. The log file is named after the configuration map (config.nn.log)'
+ type: #Boolean>
+ ^LogToFile ifNil:[true].!

Item was changed:
  Object subclass: #MCConfiguration
  instanceVariableNames: 'name dependencies repositories log'
+ classVariableNames: 'DefaultLog LogToFile'
- classVariableNames: 'DefaultLog'
  poolDictionaries: ''
  category: 'MonticelloConfigurations'!

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: [
+ self class logToFile ifFalse:[^Transcript].
+ self log: (FileStream fileNamed: self name, '.log').
+ ].
- log ifNil: [self log: (FileStream fileNamed: self name)].
  ^log!

Item was added:
+ ----- Method: MCConfiguration class>>logToFile: (in category 'preferences') -----
+ logToFile: aBool
+ "Whether to log configuration info to files by default.
+ MCConfiguration logToFile: true.
+ MCConfiguration logToFile: false.
+ "
+ LogToFile := aBool!