I sent this to the Inbox for testing and reviewing . I&#39;m not sure if this is the right way to add a category.<div><br></div><div>Karl<br><div><br></div><div><br><br><div class="gmail_quote">On Wed, Jun 2, 2010 at 12:47 AM,  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org">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;">A new version of Etoys was added to project Etoys Inbox:<br>
<a href="http://source.squeak.org/etoysinbox/Etoys-kfr.16.mcz" target="_blank">http://source.squeak.org/etoysinbox/Etoys-kfr.16.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Etoys-kfr.16<br>
Author: kfr<br>
Time: 2 June 2010, 12:47:35 am<br>
UUID: 52d4e13b-602e-2d44-aaeb-d0cac306756f<br>
Ancestors: Etoys-kfr.14<br>
Backported From: Etoys-kfr.15<br>
<br>
Makes a read only category &#39;world geometry&#39; that is only visible to the world.<br>
<br>
=============== Diff against Etoys-kfr.14 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Player&gt;&gt;categoriesForWorld (in category &#39;slots-kernel&#39;) -----<br>
  categoriesForWorld<br>
        &quot;Answer the list of categories given that the receiver is the Player representing a World&quot;<br>
<br>
        | aList |<br>
+       aList _ #(color #&#39;fill &amp; border&#39; scripting #&#39;pen trails&#39; #&#39;world geometry&#39; playfield collections sound) asOrderedCollection.<br>
-       aList _ #(color #&#39;fill &amp; border&#39; scripting #&#39;pen trails&#39; playfield collections sound) asOrderedCollection.<br>
        aList add: #input.<br>
        Preferences eToyFriendly ifFalse:<br>
                [aList addAll: #(preferences #&#39;as object&#39;<br>
  display) ].<br>
<br>
        aList addAll: {ScriptingSystem nameForInstanceVariablesCategory.  ScriptingSystem nameForScriptsCategory}.<br>
<br>
        ^ aList!<br>
<br>
Item was added:<br>
+ ----- Method: Morph class&gt;&gt;additionsToViewerCategoryWorldGeometry (in category &#39;*eToys-scripting&#39;) -----<br>
+ additionsToViewerCategoryWorldGeometry<br>
+       &quot;answer additions to the geometry viewer category&quot;<br>
+<br>
+       ^ #( #&#39;world geometry&#39;<br>
+               (<br>
+                       (slot  length  &#39;The length&#39; Number readOnly Player getLength  Player  unused  )<br>
+                       (slot  width  &#39;The width&#39; Number readOnly Player getWidth  Player  unused  )<br>
+                       (slot  left   &#39;The left edge&#39; Number readOnly Player getLeft  Player  unused  )<br>
+                       (slot  right  &#39;The right edge&#39; Number readOnly Player getRight  Player  unused  )<br>
+                       (slot  top  &#39;The top edge&#39; Number readOnly Player getTop  Player  unused   )<br>
+                       (slot  bottom  &#39;The bottom edge&#39; Number readOnly Player getBottom  Player  unused  )<br>
+<br>
+<br>
+               )<br>
+       )<br>
+<br>
+<br>
+ !<br>
<br>
Item was changed:<br>
  ----- Method: Morph&gt;&gt;filterViewerCategoryDictionary: (in category &#39;*Etoys-scripting&#39;) -----<br>
  filterViewerCategoryDictionary: dict<br>
        &quot;dict has keys of categories and values of priority.<br>
        You can  remove categories here.&quot;<br>
+<br>
-<br>
        self wantsConnectionVocabulary<br>
                ifFalse: [ dict removeKey: #&#39;connections to me&#39; ifAbsent: [].<br>
                        dict removeKey: #connection ifAbsent: []].<br>
        self wantsConnectorVocabulary<br>
                ifFalse: [ dict removeKey: #connector ifAbsent: [] ].<br>
        self wantsEmbeddingsVocabulary<br>
                ifFalse: [dict removeKey: #embeddings ifAbsent: []].<br>
+       self isWorldMorph ifFalse:<br>
+               [dict removeKey: #&#39;world geometry&#39; ifAbsent: []].<br>
-<br>
        Preferences eToyFriendly ifTrue:<br>
                [#(layout preferences display #&#39;as object&#39;) do:<br>
                        [:sym | dict removeKey: sym ifAbsent: []].<br>
<br>
+       self isWorldMorph ifFalse:[<br>
+               dict removeKey: #preferences ifAbsent: []].<br>
-       self isWorldMorph ifFalse:<br>
-               [dict removeKey: #preferences ifAbsent: []].<br>
                dict removeKey: #display ifAbsent: []]!<br>
<br>
_______________________________________________<br>
etoys-dev mailing list<br>
<a href="mailto:etoys-dev@squeakland.org">etoys-dev@squeakland.org</a><br>
<a href="http://lists.squeakland.org/mailman/listinfo/etoys-dev" target="_blank">http://lists.squeakland.org/mailman/listinfo/etoys-dev</a><br>
</blockquote></div><br></div></div>