The Trunk: SystemReporter-mt.28.mcz

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

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

Name: SystemReporter-mt.28
Author: mt
Time: 29 July 2016, 1:48:17.592006 pm
UUID: 1810451e-c781-4c4e-b3d6-8c6d6bb2389b
Ancestors: SystemReporter-mt.27

List Squeak Contributors in the System Reporter.

=============== Diff against SystemReporter-mt.27 ===============

Item was changed:
  ----- Method: SystemReporter>>initialize (in category 'initialize-release') -----
  initialize
  self
+ add: #'Contributors' method: #reportContributors;
  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: #reportWin32VMConfig.
  ].
  self
  add: #'OS General' method: #reportOS.
  Smalltalk os platformName = 'Win32' ifTrue: [
  self
  add: #'OS Details' method: #reportWin32OSDetails;
  add: #'Hardware Details' method: #reportWin32HardwareDetails;
  add: #'GFX Hardware Details' method: #reportWin32GFXDetails.
  ].
  Smalltalk os osVersion = 'linux' ifTrue: [
  self
  add: #'OS Details' method: #reportLinuxOSDetails
  ].
  self
  add: #'Tiny Benchmarks' method: #reportTinyBenchmarks;
  add: #'Space Analysis' method: #reportSpaceAnalysis;
  add: #'SUnit' method: #reportTestRunner;
  add: #'Debug Log' method: #reportDebugLog.
  categoriesSelected := Set with: #Image with: #'VM General'.
  self updateReport
  !

Item was added:
+ ----- Method: SystemReporter>>reportContributors: (in category 'reporting') -----
+ reportContributors: stream
+
+ | squeakBoardAuthors |
+ self header: 'Squeak Contributors' on: stream.
+
+ stream withAttribute: (TextColor color: (Color r: 0 g: 0.5 b: 0)) do: [
+ stream nextPutAll: 'If we forgot to mention YOU in this list, please report to [hidden email]'].
+ stream cr.
+
+ "Squeak Oversight Board Members and other influential Squeakers since its first days. :-)"
+ squeakBoardAuthors := (SystemNavigation authors keys
+ select: [:nm | #(curtis kaehler ingalls teitelbaum freudenberg latta 't. lewis' muller rowledge taeumel uzonyi assumpcao black causey cleene cunnington groot denker ducasse miranda ohshima putney raab schwartz shearar stasenko vuletich) anySatisfy: [:token | nm includesSubstring: token caseSensitive: false]]).
+
+ stream cr.
+ squeakBoardAuthors sorted do: [:fullName |
+ (SystemNavigation authors at: fullName) in: [:abbreviations |
+ stream nextPutAll: ('{1} ({2})' format: {fullName. abbreviations asArray joinSeparatedBy: ' '}); cr]].
+
+ stream cr.
+ stream withAttribute: (TextColor color: (Color r: 0 g: 0.5 b: 0)) do: [
+ stream nextPutAll: '_,.-''~''-.,__,.-''~''-.,__,.-''~''-.,__,.-''~''-.,__,.-''~''-.,_'].
+ stream cr;cr .
+
+ (SystemNavigation authors keys copyWithoutAll: squeakBoardAuthors) sorted do: [:fullName |
+ (SystemNavigation authors at: fullName) in: [:abbreviations |
+ stream nextPutAll: ('{1} ({2})' format: {fullName. abbreviations asArray joinSeparatedBy: ' '}); cr]].!