The Trunk: SystemReporter-mt.42.mcz

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

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

Name: SystemReporter-mt.42
Author: mt
Time: 24 February 2020, 3:20:21.174903 pm
UUID: bb593140-0aec-7b4d-a7c2-079a794d6db1
Ancestors: SystemReporter-eem.40

Makes "Image Preferences" work again in the system reporter tool by ignoring Deprecation warnings.

This is only a quickfix for the release. We might want to think about whether to mark deprecated preferences visually or maybe even skip them in the report.

=============== Diff against SystemReporter-eem.40 ===============

Item was changed:
  ----- 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 sorted: [:a :b | a name <= b name].  
  self header: 'Boolean Preferences' on: aStream.
+ booleanPrefs do: [:each | | prefValue |
+ [prefValue := each preferenceValue]
+ on: Deprecation do: [:ex | ex resume].
+ attribute := prefValue ifTrue: [trueTA] ifFalse: [falseTA].
- booleanPrefs do: [:each |
- attribute := each preferenceValue ifTrue: [trueTA] ifFalse: [falseTA].
  aStream withAttribute: attribute do: [
  aStream
  nextPutAll: each name;
  tab;  
+ nextPutAll: prefValue printString;
- nextPutAll: each preferenceValue printString;
  cr]].
  aStream cr.
  self header: 'Value Preferences' on: aStream.
+ valuePrefs do: [:each | | prefValue |
+ [prefValue := each preferenceValue]
+ on: Deprecation do: [:ex | ex resume].
- valuePrefs do: [:each |
  aStream
  nextPutAll: each name;
  tab;  
+ nextPutAll: prefValue printString;
- nextPutAll: each preferenceValue printString;
  cr].
  !