The Trunk: SystemReporter-ul.21.mcz

Levente Uzonyi uploaded a new version of SystemReporter to project The Trunk:
http://source.squeak.org/trunk/SystemReporter-ul.21.mcz

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

Name: SystemReporter-ul.21
Author: ul
Time: 27 April 2013, 10:50:30.431 pm
UUID: 34c5c48c-e7cc-4dfe-8133-6dec3bc63ff7
Ancestors: SystemReporter-dtl.20

- addedd SpaceTally to SystemReporter

=============== Diff against SystemReporter-dtl.20 ===============

Item was changed:
  Object subclass: #SystemReporter
+ instanceVariableNames: 'categories categoriesSelected report tinyBenchmarksResult categoryList testRunner spaceAnalysisResult'
- instanceVariableNames: 'categories categoriesSelected report tinyBenchmarksResult categoryList testRunner'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'SystemReporter'!
 
  !SystemReporter commentStamp: 'laza 1/18/2011 12:04' prior: 0!
  SystemReporter offers a window where information about the system is gathered. This can be easily copied to the clipboard and be attached to a bug report for better identification of the context the bug occured in.
 
  To extend the SystemReporter:
  - add a method
  reportXYZ: aStream
   to the reporting category
  - insert a line
  add: #XYZ method: #reportXYZ
   to the initialize method
  !

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: #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 changed:
  ----- Method: SystemReporter>>refresh (in category 'accessing-categories') -----
  refresh
+ spaceAnalysisResult := tinyBenchmarksResult := testRunner := nil.
- tinyBenchmarksResult := testRunner := nil.
  self updateReport!

Item was added:
+ ----- Method: SystemReporter>>reportSpaceAnalysis: (in category 'reporting') -----
+ reportSpaceAnalysis: aStream
+
+ spaceAnalysisResult ifNil: [
+ UIManager inform: 'Running the Space Analysis\will take a few seconds' withCRs.
+ spaceAnalysisResult := String streamContents: [ :stream |
+ SpaceTally new printSpaceAnalysis: 1 onStream: stream ] ].
+ self header: 'Space Analysis' on: aStream.
+ aStream nextPutAll: spaceAnalysisResult; cr!