<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">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</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&gt;&gt;allPreferences (in category &#39;accessing&#39;) -----<br>
  allPreferences<br>
+       ^ preferences allPreferences  asSortedCollection:<br>
-       ^ preferences allPreferenceObjects  asSortedCollection:<br>
                        [:pref1 :pref2 |<br>
                        pref1 viewRegistry viewOrder  &lt;pref2 viewRegistry viewOrder  or:<br>
                                        [pref1 viewRegistry viewOrder  =pref2 viewRegistry viewOrder<br>
                                                 &amp;(pref1 name  &lt;pref2 name)]]!<br>
<br>
Item was changed:<br>
  ----- Method: PreferenceBrowser&gt;&gt;categoryList (in category &#39;accessing&#39;) -----<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&gt;&gt;findCategoryFromPreference: (in category &#39;find&#39;) -----<br>
  findCategoryFromPreference: prefSymbol<br>
        &quot;Find all categories in which the preference occurs&quot;<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&gt;&gt;preferencesInCategory: (in category &#39;accessing&#39;) -----<br>
  preferencesInCategory: aCategory<br>
+       ^(preferences preferencesInCategory: aCategory) asSortedCollection:<br>
-       ^(preferences preferenceObjectsInCategory: aCategory) asSortedCollection:<br>
                [:pref1 :pref2 |<br>
                                pref1 viewRegistry viewOrder  &lt;pref2 viewRegistry viewOrder  or:<br>
                                                [pref1 viewRegistry viewOrder  =pref2 viewRegistry viewOrder<br>
                                                         &amp;(pref1 name  &lt;pref2 name)]]!<br>
<br>
<br>
</blockquote></div><br></div>