<div>The World extent and bounds have a special role and can be hard to.</div>
<div>I&#39;m not sure how many other special cases we need like this, it&#39;s hard to estimate.</div>
<div> </div>
<div>What do the edu team think of this kind of extention to the Vocabulary ?</div>
<div> </div>
<div>Karl</div>
<div> </div>
<div><br><br> </div>
<div class="gmail_quote">On Wed, Jun 2, 2010 at 4:10 AM, Korakurider <span dir="ltr">&lt;<a href="mailto:korakurider@gmail.com">korakurider@gmail.com</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Hi, Karl.<br>I can&#39;t say if there is not problem :-), I really tried it and it<br>seems to work, the name of category exported to POT.<br>
<br>But we might want to publicly discuss changes to vocabulary with wider<br>audience (especially folks of edu team)  in squeakland list or<br>tracker.<br><font color="#888888"><br>/Korakurider<br></font>
<div>
<div></div>
<div class="h5"><br>On Wed, Jun 2, 2010 at 7:51 AM, karl ramberg &lt;<a href="mailto:karlramberg@gmail.com">karlramberg@gmail.com</a>&gt; wrote:<br>&gt; I sent this to the Inbox for testing and reviewing . I&#39;m not sure if this is<br>
&gt; the right way to add a category.<br>&gt; Karl<br>&gt;<br>&gt;<br>&gt;<br>&gt; On Wed, Jun 2, 2010 at 12:47 AM, &lt;<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>&gt; wrote:<br>&gt;&gt;<br>&gt;&gt; A new version of Etoys was added to project Etoys Inbox:<br>
&gt;&gt; <a href="http://source.squeak.org/etoysinbox/Etoys-kfr.16.mcz" target="_blank">http://source.squeak.org/etoysinbox/Etoys-kfr.16.mcz</a><br>&gt;&gt;<br>&gt;&gt; ==================== Summary ====================<br>
&gt;&gt;<br>&gt;&gt; Name: Etoys-kfr.16<br>&gt;&gt; Author: kfr<br>&gt;&gt; Time: 2 June 2010, 12:47:35 am<br>&gt;&gt; UUID: 52d4e13b-602e-2d44-aaeb-d0cac306756f<br>&gt;&gt; Ancestors: Etoys-kfr.14<br>&gt;&gt; Backported From: Etoys-kfr.15<br>
&gt;&gt;<br>&gt;&gt; Makes a read only category &#39;world geometry&#39; that is only visible to the<br>&gt;&gt; world.<br>&gt;&gt;<br>&gt;&gt; =============== Diff against Etoys-kfr.14 ===============<br>&gt;&gt;<br>&gt;&gt; Item was changed:<br>
&gt;&gt;  ----- Method: Player&gt;&gt;categoriesForWorld (in category &#39;slots-kernel&#39;)<br>&gt;&gt; -----<br>&gt;&gt;  categoriesForWorld<br>&gt;&gt;        &quot;Answer the list of categories given that the receiver is the<br>
&gt;&gt; Player representing a World&quot;<br>&gt;&gt;<br>&gt;&gt;        | aList |<br>&gt;&gt; +       aList _ #(color #&#39;fill &amp; border&#39; scripting #&#39;pen trails&#39; #&#39;world<br>&gt;&gt; geometry&#39; playfield collections sound) asOrderedCollection.<br>
&gt;&gt; -       aList _ #(color #&#39;fill &amp; border&#39; scripting #&#39;pen trails&#39; playfield<br>&gt;&gt; collections sound) asOrderedCollection.<br>&gt;&gt;        aList add: #input.<br>&gt;&gt;        Preferences eToyFriendly ifFalse:<br>
&gt;&gt;                [aList addAll: #(preferences #&#39;as object&#39;<br>&gt;&gt;  display) ].<br>&gt;&gt;<br>&gt;&gt;        aList addAll: {ScriptingSystem nameForInstanceVariablesCategory.<br>&gt;&gt;  ScriptingSystem nameForScriptsCategory}.<br>
&gt;&gt;<br>&gt;&gt;        ^ aList!<br>&gt;&gt;<br>&gt;&gt; Item was added:<br>&gt;&gt; + ----- Method: Morph class&gt;&gt;additionsToViewerCategoryWorldGeometry (in<br>&gt;&gt; category &#39;*eToys-scripting&#39;) -----<br>
&gt;&gt; + additionsToViewerCategoryWorldGeometry<br>&gt;&gt; +       &quot;answer additions to the geometry viewer category&quot;<br>&gt;&gt; +<br>&gt;&gt; +       ^ #( #&#39;world geometry&#39;<br>&gt;&gt; +               (<br>
&gt;&gt; +                       (slot  length  &#39;The length&#39; Number readOnly Player<br>&gt;&gt; getLength  Player  unused  )<br>&gt;&gt; +                       (slot  width  &#39;The width&#39; Number readOnly Player<br>
&gt;&gt; getWidth  Player  unused  )<br>&gt;&gt; +                       (slot  left   &#39;The left edge&#39; Number readOnly<br>&gt;&gt; Player getLeft  Player  unused  )<br>&gt;&gt; +                       (slot  right  &#39;The right edge&#39; Number readOnly<br>
&gt;&gt; Player getRight  Player  unused  )<br>&gt;&gt; +                       (slot  top  &#39;The top edge&#39; Number readOnly Player<br>&gt;&gt; getTop  Player  unused   )<br>&gt;&gt; +                       (slot  bottom  &#39;The bottom edge&#39; Number readOnly<br>
&gt;&gt; Player getBottom  Player  unused  )<br>&gt;&gt; +<br>&gt;&gt; +<br>&gt;&gt; +               )<br>&gt;&gt; +       )<br>&gt;&gt; +<br>&gt;&gt; +<br>&gt;&gt; + !<br>&gt;&gt;<br>&gt;&gt; Item was changed:<br>&gt;&gt;  ----- Method: Morph&gt;&gt;filterViewerCategoryDictionary: (in category<br>
&gt;&gt; &#39;*Etoys-scripting&#39;) -----<br>&gt;&gt;  filterViewerCategoryDictionary: dict<br>&gt;&gt;        &quot;dict has keys of categories and values of priority.<br>&gt;&gt;        You can  remove categories here.&quot;<br>
&gt;&gt; +<br>&gt;&gt; -<br>&gt;&gt;        self wantsConnectionVocabulary<br>&gt;&gt;                ifFalse: [ dict removeKey: #&#39;connections to me&#39; ifAbsent:<br>&gt;&gt; [].<br>&gt;&gt;                        dict removeKey: #connection ifAbsent: []].<br>
&gt;&gt;        self wantsConnectorVocabulary<br>&gt;&gt;                ifFalse: [ dict removeKey: #connector ifAbsent: [] ].<br>&gt;&gt;        self wantsEmbeddingsVocabulary<br>&gt;&gt;                ifFalse: [dict removeKey: #embeddings ifAbsent: []].<br>
&gt;&gt; +       self isWorldMorph ifFalse:<br>&gt;&gt; +               [dict removeKey: #&#39;world geometry&#39; ifAbsent: []].<br>&gt;&gt; -<br>&gt;&gt;        Preferences eToyFriendly ifTrue:<br>&gt;&gt;                [#(layout preferences display #&#39;as object&#39;) do:<br>
&gt;&gt;                        [:sym | dict removeKey: sym ifAbsent: []].<br>&gt;&gt;<br>&gt;&gt; +       self isWorldMorph ifFalse:[<br>&gt;&gt; +               dict removeKey: #preferences ifAbsent: []].<br>&gt;&gt; -       self isWorldMorph ifFalse:<br>
&gt;&gt; -               [dict removeKey: #preferences ifAbsent: []].<br>&gt;&gt;                dict removeKey: #display ifAbsent: []]!<br>&gt;&gt;<br>&gt;&gt; _______________________________________________<br>&gt;&gt; etoys-dev mailing list<br>
&gt;&gt; <a href="mailto:etoys-dev@squeakland.org">etoys-dev@squeakland.org</a><br>&gt;&gt; <a href="http://lists.squeakland.org/mailman/listinfo/etoys-dev" target="_blank">http://lists.squeakland.org/mailman/listinfo/etoys-dev</a><br>
&gt;<br>&gt;<br>&gt; _______________________________________________<br>&gt; etoys-dev mailing list<br>&gt; <a href="mailto:etoys-dev@squeakland.org">etoys-dev@squeakland.org</a><br>&gt; <a href="http://lists.squeakland.org/mailman/listinfo/etoys-dev" target="_blank">http://lists.squeakland.org/mailman/listinfo/etoys-dev</a><br>
&gt;<br>&gt;<br></div></div></blockquote></div><br>