Packages February 2011

packages@lists.squeakfoundation.org

2 participants
337 discussions

The Trunk: SystemReporter-laza.12.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

Alexander Lazarević uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-laza.12.mcz ==================== Summary ==================== Name: SystemReporter-laza.12 Author: laza Time: 1 February 2011, 9:30:59.288 am UUID: 059b888f-ae13-7f43-806b-611aaaec9005 Ancestors: SystemReporter-laza.11 Add a report for the Debug Logfile =============== Diff against SystemReporter-laza.11 =============== 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: #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; + add: #'SUnit' method: #reportTestRunner; + add: #'Debug Log' method: #reportDebugLog. - add: #'SUnit' method: #reportTestRunner. categoriesSelected := Set with: #Image with: #'VM General'. self updateReport ! Item was added: + ----- Method: SystemReporter>>reportDebugLog: (in category 'reporting') ----- + reportDebugLog: aStream + | logFilename logStream contents | + self header: 'Debug Logfile' on: aStream. + logFilename := Smalltalk image squeakErrorFileName. + logStream := nil. + [ + [ + logStream := FileStream readOnlyFileNamed: logFilename. + aStream nextPutAll: logStream name; cr; cr. + contents := logStream contents. + aStream + nextPutAll: + ((contents isNil or: [contents size = 0]) + ifTrue: ['<empty>'] + ifFalse: [contents]); + cr + ] on: Error do: [:ex | + aStream + nextPutAll: ( + ex class = FileDoesNotExistException + ifTrue: [logFilename, ' not found'] + ifFalse: [ex description]); + cr + ] + ] ensure: [ + logStream ifNotNil: [logStream close] + ]!

1 0

The Trunk: SystemReporter-laza.12.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

1 0

The Trunk: SystemReporter-laza.11.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

Alexander Lazarević uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-laza.11.mcz ==================== Summary ==================== Name: SystemReporter-laza.11 Author: laza Time: 31 January 2011, 9:21:27.089 pm UUID: 15d33a31-fc91-f043-9045-f92b0fb76005 Ancestors: SystemReporter-laza.10 Add a report for all SUnit tests =============== Diff against SystemReporter-laza.10 =============== Item was changed: Object subclass: #SystemReporter + instanceVariableNames: 'categories categoriesSelected report tinyBenchmarksResult categoryList testRunner' - instanceVariableNames: 'categories categoriesSelected report tinyBenchmarksResult categoryList' 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: #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; + add: #'SUnit' method: #reportTestRunner. - self add: #'Tiny Benchmarks' method: #reportTinyBenchmarks. categoriesSelected := Set with: #Image with: #'VM General'. self updateReport ! Item was changed: ----- Method: SystemReporter>>refresh (in category 'accessing-categories') ----- refresh + tinyBenchmarksResult := testRunner := nil. - tinyBenchmarksResult := nil. self updateReport! Item was added: + ----- Method: SystemReporter>>reportTestRunner: (in category 'reporting') ----- + reportTestRunner: aStream + testRunner ifNil: [| runAllTests | + runAllTests := UIManager confirm: 'Running all Tests\will take long time' withCRs. + runAllTests + ifTrue: [testRunner := TestRunner new runAll] + ifFalse: [ + categoriesSelected remove: #SUnit. + ^self changed: #categorySelected]]. + self header: 'SUnit Results' on: aStream. + aStream nextPutAll: testRunner statusText; cr; cr. + self header: 'Failed Tests' on: aStream. + testRunner failedList do: [:each | aStream nextPutAll: each; cr]. + aStream cr. + self header: 'Errors' on: aStream. + testRunner errorList do: [:each | aStream nextPutAll: each; cr] + ! Item was changed: ----- Method: SystemReporter>>reportTinyBenchmarks: (in category 'reporting') ----- reportTinyBenchmarks: aStream tinyBenchmarksResult ifNil: [ UIManager inform: 'Running the Benchmarks\will take a few seconds' withCRs. tinyBenchmarksResult := 0 tinyBenchmarks]. self header: 'Tiny Benchmarks' on: aStream. + aStream nextPutAll: tinyBenchmarksResult; cr! - aStream nextPutAll: tinyBenchmarksResult!

1 0

The Trunk: SystemReporter-laza.11.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

1 0

The Trunk: SystemReporter-laza.11.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

1 0

The Trunk: SystemReporter-laza.10.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

Alexander Lazarević uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-laza.10.mcz ==================== Summary ==================== Name: SystemReporter-laza.10 Author: laza Time: 30 January 2011, 5:07:42.279 am UUID: ab9a338f-f367-d047-b266-9cb9bd3d841a Ancestors: SystemReporter-laza.9 Be a bit more consistent and metion the filepath always first =============== Diff against SystemReporter-laza.9 =============== Item was changed: ----- Method: SystemReporter>>reportImage: (in category 'reporting') ----- reportImage: aStream self header: 'Image' on: aStream. aStream + nextPutAll: Smalltalk image imageName; cr; nextPutAll: SystemVersion current version; cr; nextPutAll: Smalltalk image lastUpdateString; cr; + nextPutAll: Smalltalk image currentChangeSetString; cr + ! - nextPutAll: Smalltalk image currentChangeSetString; cr; - nextPutAll: Smalltalk image imageName; cr! Item was changed: ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- reportVM: aStream self header: 'Virtual Machine' on: aStream. aStream + nextPutAll: (Smalltalk vm vmFileName); cr; + nextPutAll: (Smalltalk vm vmVersion); cr. - nextPutAll: (Smalltalk vm vmVersion); cr; - nextPutAll: (Smalltalk vm vmFileName); cr. Smalltalk vm buildDate ifNotNilDo: [:string | aStream nextPutAll: string; cr]. [Smalltalk vm platformSourceVersion ifNotNilDo: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterSourceVersion ifNotNilDo: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] on: Warning do: ["unsupported primitive"]!

1 0

The Trunk: SystemReporter-laza.10.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

1 0

The Trunk: SystemReporter-laza.10.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

1 0

The Trunk: SystemReporter-laza.9.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

Alexander Lazarević uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-laza.9.mcz ==================== Summary ==================== Name: SystemReporter-laza.9 Author: laza Time: 28 January 2011, 1:54:34.063 pm UUID: 84816bc9-665f-bf43-9ed7-a4982675c0a8 Ancestors: SystemReporter-laza.8 add report for preferences =============== Diff against SystemReporter-laza.8 =============== 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: #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>>reportPreferences: (in category 'reporting') ----- + reportPreferences: aStream + | booleanPrefs prefs valuePrefs attribute falseTA trueTA | + prefs := Preferences dictionaryOfPreferences. + booleanPrefs := prefs select: [:each | each type = #Boolean]. + valuePrefs := prefs select: [:each | each type = #Number or: [each type = #String]]. + trueTA := TextColor black. + falseTA := TextColor gray. + booleanPrefs := booleanPrefs asSortedCollection: [:a :b | a name <= b name]. + self header: 'Boolean Preferences' on: aStream. + booleanPrefs do: [:each | + attribute := each preferenceValue ifTrue: [trueTA] ifFalse: [falseTA]. + aStream withAttribute: attribute do: [ + aStream + nextPutAll: each name; + tab; + nextPutAll: each preferenceValue printString; + cr]]. + aStream cr. + self header: 'Value Preferences' on: aStream. + valuePrefs do: [:each | + aStream + nextPutAll: each name; + tab; + nextPutAll: each preferenceValue printString; + cr]. + !

1 0

The Trunk: SystemReporter-laza.9.mcz
by commits＠source.squeak.org 01 Feb '11

01 Feb '11

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2011