The Trunk: SystemReporter-ul.33.mcz

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