The Trunk: SystemReporter-laza.9.mcz

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