[Pkg] The Trunk: PreferenceBrowser-mt.54.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Aug 27 08:56:23 UTC 2015
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)]]!
More information about the Packages
mailing list