Levente Uzonyi uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-ul.79.mcz==================== Summary ====================
Name: PreferenceBrowser-ul.79
Author: ul
Time: 13 March 2017, 2:49:14.058201 pm
UUID: 16aaee27-e005-42ff-9a50-c459e07179f2
Ancestors: PreferenceBrowser-ul.78
SortedCollection Whack-a-mole
=============== Diff against PreferenceBrowser-ul.78 ===============
Item was changed:
----- Method: PreferenceBrowser>>allPreferences (in category 'accessing') -----
allPreferences
+ ^ preferences allPreferences sort:
- ^ preferences allPreferences 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 sorted;
- addAll: preferences categoryList asSortedCollection;
add: self searchResultsCategoryLabel;
yourself.
!
Item was changed:
----- Method: PreferenceBrowser>>preferencesInCategory: (in category 'accessing') -----
preferencesInCategory: aCategory
+ ^(preferences preferencesInCategory: aCategory) sort:
- ^(preferences preferencesInCategory: aCategory) asSortedCollection:
[:pref1 :pref2 |
pref1 viewRegistry viewOrder <pref2 viewRegistry viewOrder or:
[pref1 viewRegistry viewOrder =pref2 viewRegistry viewOrder
&(pref1 name <pref2 name)]]!