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)]]!
packages@lists.squeakfoundation.org