[Pkg] The Trunk: SystemReporter-mt.37.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jun 29 13:03:58 UTC 2017
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!
More information about the Packages
mailing list