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