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]!