Alexander Lazarević uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-laza.9.mcz
==================== Summary ====================
Name: SystemReporter-laza.9 Author: laza Time: 28 January 2011, 1:54:34.063 pm UUID: 84816bc9-665f-bf43-9ed7-a4982675c0a8 Ancestors: SystemReporter-laza.8
add report for preferences
=============== Diff against SystemReporter-laza.8 ===============
Item was changed: ----- Method: SystemReporter>>initialize (in category 'initialize-release') ----- initialize self add: #Image method: #reportImage; add: #'Image Parameters' method: #reportImageParameters; add: #'Image Sources' method: #reportSources; + add: #'Image Preferences' method: #reportPreferences; add: #'MC Repositories' method: #reportRepositories; add: #'MC Working Copies' method: #reportWorkingCopies; add: #'VM General' method: #reportVM; add: #'VM Options' method: #reportVMOptions; add: #'VM Modules' method: #reportModules; add: #'VM Parameters' method: #reportVMParameters; add: #'VM Stats' method: #reportVMStats. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'VM Configuration' method: #reportINI. ]. self add: #'OS General' method: #reportOS. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'OS Details' method: #reportOSDetails; add: #'Hardware Details' method: #reportHardwareDetails; add: #'GFX Hardware Details' method: #reportGFXDetails. ]. self add: #'Tiny Benchmarks' method: #reportTinyBenchmarks. categoriesSelected := Set with: #Image with: #'VM General'. self updateReport !
Item was added: + ----- Method: SystemReporter>>reportPreferences: (in category 'reporting') ----- + reportPreferences: aStream + | booleanPrefs prefs valuePrefs attribute falseTA trueTA | + prefs := Preferences dictionaryOfPreferences. + booleanPrefs := prefs select: [:each | each type = #Boolean]. + valuePrefs := prefs select: [:each | each type = #Number or: [each type = #String]]. + trueTA := TextColor black. + falseTA := TextColor gray. + booleanPrefs := booleanPrefs asSortedCollection: [:a :b | a name <= b name]. + self header: 'Boolean Preferences' on: aStream. + booleanPrefs do: [:each | + attribute := each preferenceValue ifTrue: [trueTA] ifFalse: [falseTA]. + aStream withAttribute: attribute do: [ + aStream + nextPutAll: each name; + tab; + nextPutAll: each preferenceValue printString; + cr]]. + aStream cr. + self header: 'Value Preferences' on: aStream. + valuePrefs do: [:each | + aStream + nextPutAll: each name; + tab; + nextPutAll: each preferenceValue printString; + cr]. + !