The Trunk: Tools-mt.535.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.535.mcz

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

Name: Tools-mt.535
Author: mt
Time: 1 March 2015, 10:46:38.721 am
UUID: 5406c378-35cd-1d43-aa16-abb5ec8b11e2
Ancestors: Tools-mt.534

New preference for auto-sorting the message category list. Disabled by default.

=============== Diff against Tools-mt.534 ===============

Item was changed:
  CodeHolder subclass: #Browser
  instanceVariableNames: 'environment systemOrganizer classOrganizer metaClassOrganizer editSelection metaClassIndicated selectedSystemCategory selectedClassName selectedMessageName selectedMessageCategoryName'
+ classVariableNames: 'ListClassesHierarchically RecentClasses SortMessageCategoriesAlphabetically'
- classVariableNames: 'ListClassesHierarchically RecentClasses'
  poolDictionaries: ''
  category: 'Tools-Browser'!
 
  !Browser commentStamp: 'cwp 12/27/2012 11:09' prior: 0!
  I represent a query path into the class descriptions, the software of the system.!

Item was added:
+ ----- Method: Browser class>>sortMessageCategoriesAlphabetically (in category 'preferences') -----
+ sortMessageCategoriesAlphabetically
+
+ <preference: 'Sort Message Categories Alphabetically'
+ categoryList: #(browsing Tools)
+ description: 'When enabled, the message category list in the browser is ordered by alphabet. No need to ''alphabetize'' this list manually via the context menu.'
+ type: #Boolean>
+
+ ^ SortMessageCategoriesAlphabetically ifNil: [false]
+ !

Item was added:
+ ----- Method: Browser class>>sortMessageCategoriesAlphabetically: (in category 'preferences') -----
+ sortMessageCategoriesAlphabetically: aBoolean
+
+ SortMessageCategoriesAlphabetically := aBoolean.
+ !

Item was changed:
  ----- Method: Browser>>messageCategoryList (in category 'message category list') -----
  messageCategoryList
  "Answer the selected category of messages."
 
+ ^ self hasClassSelected
+ ifFalse: [Array new]
+ ifTrue: [ {ClassOrganizer allCategory},
+ (self class sortMessageCategoriesAlphabetically
+ ifTrue: [self rawMessageCategoryList sorted]
+ ifFalse: [self rawMessageCategoryList]) ]!
- self hasClassSelected
- ifTrue: [^ (Array with: ClassOrganizer allCategory), self classOrMetaClassOrganizer categories sorted]
- ifFalse: [^ Array new]!