[Pkg] The Trunk: SystemReporter-ul.33.mcz

[commits at source.squeak.org]

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

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

Name: SystemReporter-ul.33
Author: ul
Time: 13 March 2017, 3:10:59.204739 pm
UUID: 62a3ae08-b8d8-41d6-959c-ba8aaa6a8633
Ancestors: SystemReporter-eem.32

SortedCollection Whack-a-mole

=============== Diff against SystemReporter-eem.32 ===============

Item was changed:
  ----- Method: SystemReporter>>reportModules: (in category 'reporting') -----
  reportModules: aStream
  	self header: 'Loaded VM Modules' on: aStream.
+ 	SmalltalkImage current listLoadedModules sort do: [:each | aStream nextPutAll: each; cr].
- 	SmalltalkImage current listLoadedModules asSortedCollection do: [:each | aStream nextPutAll: each; cr].
  
  !

Item was changed:
  ----- 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 sorted: [:a :b | a name <= b name].  
- 	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].
  !

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