<div dir="ltr">Hi,<div>While you are working on the preferences, it would be great if you could look at this change</div><div><pre style="color:rgb(0,0,0);word-wrap:break-word;white-space:pre-wrap"><a href="http://source.squeak.org/inbox/EToys-kfr.127.mcz">http://source.squeak.org/inbox/EToys-kfr.127.mcz</a></pre><pre style="color:rgb(0,0,0);word-wrap:break-word;white-space:pre-wrap"><br></pre><pre style="color:rgb(0,0,0);word-wrap:break-word;white-space:pre-wrap">It adds access to change color and border style for menus (and buttons) in the preference browser</pre><pre style="color:rgb(0,0,0);word-wrap:break-word;white-space:pre-wrap">(these methods should really not be in the Etoys category)</pre><pre style="color:rgb(0,0,0);word-wrap:break-word;white-space:pre-wrap"><br></pre><pre style="color:rgb(0,0,0);word-wrap:break-word;white-space:pre-wrap">Karl</pre></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Thu, Aug 27, 2015 at 10:56 AM, <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/PreferenceBrowser-mt.54.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/PreferenceBrowser-mt.54.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: PreferenceBrowser-mt.54<br>
Author: mt<br>
Time: 27 August 2015, 10:56:18.032 am<br>
UUID: 10b11ae8-a6bd-a445-a977-b30028b9e507<br>
Ancestors: PreferenceBrowser-mt.53<br>
<br>
Some adjustments for cleaned-up preferences interface.<br>
<br>
=============== Diff against PreferenceBrowser-mt.53 ===============<br>
<br>
Item was changed:<br>
----- Method: PreferenceBrowser>>allPreferences (in category 'accessing') -----<br>
allPreferences<br>
+ ^ preferences allPreferences asSortedCollection:<br>
- ^ preferences allPreferenceObjects asSortedCollection:<br>
[:pref1 :pref2 |<br>
pref1 viewRegistry viewOrder <pref2 viewRegistry viewOrder or:<br>
[pref1 viewRegistry viewOrder =pref2 viewRegistry viewOrder<br>
&(pref1 name <pref2 name)]]!<br>
<br>
Item was changed:<br>
----- Method: PreferenceBrowser>>categoryList (in category 'accessing') -----<br>
categoryList<br>
^OrderedCollection new<br>
add: self allCategoryLabel;<br>
+ addAll: preferences categoryList asSortedCollection;<br>
- addAll: preferences categoryNames asSortedCollection;<br>
add: self searchResultsCategoryLabel;<br>
yourself.<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: PreferenceBrowser>>findCategoryFromPreference: (in category 'find') -----<br>
findCategoryFromPreference: prefSymbol<br>
"Find all categories in which the preference occurs"<br>
<br>
| aMenu|<br>
aMenu := MenuMorph new defaultTarget: self.<br>
+ (preferences categoryListOfPreference: prefSymbol) do:<br>
- (preferences categoriesContainingPreference: prefSymbol) do:<br>
[:aCategory | aMenu add: aCategory target: self selector: #selectedCategory: argument: aCategory].<br>
aMenu popUpInWorld!<br>
<br>
Item was changed:<br>
----- Method: PreferenceBrowser>>preferencesInCategory: (in category 'accessing') -----<br>
preferencesInCategory: aCategory<br>
+ ^(preferences preferencesInCategory: aCategory) asSortedCollection:<br>
- ^(preferences preferenceObjectsInCategory: aCategory) asSortedCollection:<br>
[:pref1 :pref2 |<br>
pref1 viewRegistry viewOrder <pref2 viewRegistry viewOrder or:<br>
[pref1 viewRegistry viewOrder =pref2 viewRegistry viewOrder<br>
&(pref1 name <pref2 name)]]!<br>
<br>
<br>
</blockquote></div><br></div>