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

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

Name: PreferenceBrowser-mt.54
Author: mt
Time: 27 August 2015, 10:56:18.032 am
UUID: 10b11ae8-a6bd-a445-a977-b30028b9e507
Ancestors: PreferenceBrowser-mt.53

Some adjustments for cleaned-up preferences interface.

=============== Diff against PreferenceBrowser-mt.53 ===============

Item was changed:
  ----- Method: PreferenceBrowser>>allPreferences (in category 'accessing') -----
  allPreferences
+ 	^ preferences allPreferences  asSortedCollection:
- 	^ preferences allPreferenceObjects  asSortedCollection:
  			[:pref1 :pref2 | 
  			pref1 viewRegistry viewOrder  <pref2 viewRegistry viewOrder  or:
  					[pref1 viewRegistry viewOrder  =pref2 viewRegistry viewOrder 
  						 &(pref1 name  <pref2 name)]]!

Item was changed:
  ----- Method: PreferenceBrowser>>categoryList (in category 'accessing') -----
  categoryList
  	^OrderedCollection new
  		add:  self allCategoryLabel;
+ 		addAll: preferences categoryList asSortedCollection;
- 		addAll: preferences categoryNames asSortedCollection;
  		add: self searchResultsCategoryLabel;
  		yourself.
  	
  	!

Item was changed:
  ----- Method: PreferenceBrowser>>findCategoryFromPreference: (in category 'find') -----
  findCategoryFromPreference: prefSymbol
  	"Find all categories in which the preference occurs"
  
  	| aMenu| 
  	aMenu := MenuMorph new defaultTarget: self.
+ 	(preferences categoryListOfPreference: prefSymbol) do:
- 	(preferences categoriesContainingPreference: prefSymbol) do:
  		[:aCategory | aMenu add: aCategory target: self selector: #selectedCategory: argument: aCategory].
  	aMenu popUpInWorld!

Item was changed:
  ----- Method: PreferenceBrowser>>preferencesInCategory: (in category 'accessing') -----
  preferencesInCategory: aCategory
+ 	^(preferences preferencesInCategory: aCategory) asSortedCollection:
- 	^(preferences preferenceObjectsInCategory: aCategory) asSortedCollection:
  		[:pref1 :pref2 | 
  				pref1 viewRegistry viewOrder  <pref2 viewRegistry viewOrder  or:
  						[pref1 viewRegistry viewOrder  =pref2 viewRegistry viewOrder 
  							 &(pref1 name  <pref2 name)]]!