Alexander Lazarević uploaded a new version of SystemReporter to project The Trunk:
http://source.squeak.org/trunk/SystemReporter-laza.14.mcz

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

Name: SystemReporter-laza.14
Author: laza
Time: 15 February 2011, 9:43:52.408 am
UUID: a716d201-ccb4-5a46-a994-fe4d53270625
Ancestors: SystemReporter-laza.13

rename platform specific report methods

=============== Diff against SystemReporter-laza.13 ===============

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.
- 			add: #'VM Configuration' method: #reportINI.
  		].
  	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.
- 			add: #'OS Details' method: #reportOSDetails;
- 			add: #'Hardware Details' method: #reportHardwareDetails;
- 			add: #'GFX Hardware Details' method: #reportGFXDetails.
  		].
  	self
  		add: #'Tiny Benchmarks' method: #reportTinyBenchmarks;
  		add: #'SUnit' method: #reportTestRunner;
  		add: #'Debug Log' method: #reportDebugLog.
  	categoriesSelected := Set with: #Image with: #'VM General'.
  	self updateReport
  !

Item was removed:
- ----- Method: SystemReporter>>reportGFXDetails: (in category 'reporting') -----
- reportGFXDetails: aStream
- 	self header: 'Graphics Hardware Details' on: aStream.
- 	aStream nextPutAll: (SmalltalkImage current getSystemAttribute: 10003)!

Item was removed:
- ----- Method: SystemReporter>>reportHardwareDetails: (in category 'reporting') -----
- reportHardwareDetails: aStream
- 	self header: 'Hardware Details' on: aStream.
- 	aStream nextPutAll: (SmalltalkImage current getSystemAttribute: 10001)!

Item was removed:
- ----- Method: SystemReporter>>reportINI: (in category 'reporting') -----
- reportINI: aStream
- 	| exePath iniData iniPath |
- 	self header: 'VM Configuration' on: aStream.
- 	exePath := Smalltalk vm vmFileName.
- 	iniPath := (exePath copyUpToLast: $.), '.ini'.
- 	aStream nextPutAll: iniPath; cr.
- 	iniData := [
- 		(FileStream readOnlyFileNamed: iniPath)
- 			 contentsOfEntireFile
- 	] on: Error do:[:ex| ex return: ex printString].
- 	aStream
- 		nextPutAll: iniData!

Item was removed:
- ----- Method: SystemReporter>>reportOSDetails: (in category 'reporting') -----
- reportOSDetails: aStream
- 	self header: 'Operating System Details' on: aStream.
- 	aStream nextPutAll: (SmalltalkImage current getSystemAttribute: 10002)!

Item was added:
+ ----- Method: SystemReporter>>reportWin32GFXDetails: (in category 'reporting') -----
+ reportWin32GFXDetails: aStream
+ 	self header: 'Graphics Hardware Details' on: aStream.
+ 	aStream nextPutAll: (SmalltalkImage current getSystemAttribute: 10003)!

Item was added:
+ ----- Method: SystemReporter>>reportWin32HardwareDetails: (in category 'reporting') -----
+ reportWin32HardwareDetails: aStream
+ 	self header: 'Hardware Details' on: aStream.
+ 	aStream nextPutAll: (SmalltalkImage current getSystemAttribute: 10001)!

Item was added:
+ ----- Method: SystemReporter>>reportWin32OSDetails: (in category 'reporting') -----
+ reportWin32OSDetails: aStream
+ 	self header: 'Operating System Details' on: aStream.
+ 	aStream nextPutAll: (SmalltalkImage current getSystemAttribute: 10002)!

Item was added:
+ ----- Method: SystemReporter>>reportWin32VMConfig: (in category 'reporting') -----
+ reportWin32VMConfig: aStream
+ 	| exePath iniData iniPath |
+ 	self header: 'VM Configuration' on: aStream.
+ 	exePath := Smalltalk vm vmFileName.
+ 	iniPath := (exePath copyUpToLast: $.), '.ini'.
+ 	aStream nextPutAll: iniPath; cr.
+ 	iniData := [
+ 		(FileStream readOnlyFileNamed: iniPath)
+ 			 contentsOfEntireFile
+ 	] on: Error do:[:ex| ex return: ex printString].
+ 	aStream
+ 		nextPutAll: iniData!