The Trunk: SystemReporter-mt.37.mcz

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

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

Name: SystemReporter-mt.37
Author: mt
Time: 29 June 2017, 3:03:50.636613 pm
UUID: 677772f4-1903-2e48-8fd7-67c47c5ff48e
Ancestors: SystemReporter-nice.36

Fixes some glitch with the font in the system reporter's report.

=============== Diff against SystemReporter-nice.36 ===============

Item was changed:
  ----- Method: SystemReporter>>buildReportWith: (in category 'building') -----
  buildReportWith: aBuilder
  ^ aBuilder pluggableTextSpec new
  model: self;
+ font: Preferences standardFixedFont;
  menu: #reportMenu:;
  getText: #reportText;
  yourself.!

Item was changed:
  ----- Method: SystemReporter>>updateReport (in category 'updating') -----
  updateReport
  report := Text streamContents: [:stream |
+ self categoryList do: [:each |
+ (categoriesSelected includes: each) ifTrue: [
+ self perform: ((categories at: each), ':') asSymbol with: stream.
+ stream cr]]].
+ self changed: #reportText.!
- stream
- withAttribute: (TextFontReference toFont: Preferences standardFixedFont)
- do: [
- self categoryList do: [:each |
- (categoriesSelected includes: each) ifTrue: [
- self perform: ((categories at: each), ':') asSymbol with: stream.
- stream cr]]]].
- self changed: #reportText!