[Pkg] The Trunk: Tools-mt.535.mcz

[commits at source.squeak.org]

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