[Pkg] The Trunk: SystemReporter-laza.7.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 1 08:35:13 UTC 2011


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

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

Name: SystemReporter-laza.7
Author: laza
Time: 28 January 2011, 12:18:49.584 pm
UUID: 4e1e4b49-a6ad-c949-8987-3d6161c72a90
Ancestors: SystemReporter-laza.6

add reports for monticello repositories and working copies

=============== Diff against SystemReporter-laza.6 ===============

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: #'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.
  	Smalltalk os platformName = 'Win32' ifTrue: [
  		self
  			add: #'VM Configuration' method: #reportINI.
  		].
  	self
  		add: #'OS General' method: #reportOS.
  	Smalltalk os platformName = 'Win32' ifTrue: [
  		self
  			add: #'OS Details' method: #reportOSDetails;
  			add: #'Hardware Details' method: #reportHardwareDetails;
  			add: #'GFX Hardware Details' method: #reportGFXDetails.
  		].
  	self add: #'Tiny Benchmarks' method: #reportTinyBenchmarks.
  	categoriesSelected := Set with: #Image with: #'VM General'.
  	self updateReport
  !

Item was added:
+ ----- Method: SystemReporter>>reportRepositories: (in category 'reporting') -----
+ reportRepositories: aStream
+ 	self header: 'Monticello Repositories' on: aStream.
+ 	MCRepositoryGroup default repositories do: [:each | aStream nextPutAll: each description; cr]!

Item was added:
+ ----- Method: SystemReporter>>reportWorkingCopies: (in category 'reporting') -----
+ reportWorkingCopies: aStream
+ 	| list |
+ 	self header: 'Monticello Working Copies' on: aStream.
+ 	list := MCWorkingCopy allManagers asSortedCollection: [:a :b | a name <= b name]  .
+ 	list do: [:each | aStream nextPutAll: each description; cr]!



More information about the Packages mailing list