[etoys-dev] Etoys Inbox: Etoys-kfr.16.mcz

[karl ramberg]

I sent this to the Inbox for testing and reviewing . I'm not sure if this is
the right way to add a category.

Karl



On Wed, Jun 2, 2010 at 12:47 AM, <commits at source.squeak.org> wrote:

> A new version of Etoys was added to project Etoys Inbox:
> http://source.squeak.org/etoysinbox/Etoys-kfr.16.mcz
>
> ==================== Summary ====================
>
> Name: Etoys-kfr.16
> Author: kfr
> Time: 2 June 2010, 12:47:35 am
> UUID: 52d4e13b-602e-2d44-aaeb-d0cac306756f
> Ancestors: Etoys-kfr.14
> Backported From: Etoys-kfr.15
>
> Makes a read only category 'world geometry' that is only visible to the
> world.
>
> =============== Diff against Etoys-kfr.14 ===============
>
> Item was changed:
>  ----- Method: Player>>categoriesForWorld (in category 'slots-kernel')
> -----
>  categoriesForWorld
>        "Answer the list of categories given that the receiver is the Player
> representing a World"
>
>        | aList |
> +       aList _ #(color #'fill & border' scripting #'pen trails' #'world
> geometry' playfield collections sound) asOrderedCollection.
> -       aList _ #(color #'fill & border' scripting #'pen trails' playfield
> collections sound) asOrderedCollection.
>        aList add: #input.
>        Preferences eToyFriendly ifFalse:
>                [aList addAll: #(preferences #'as object'
>  display) ].
>
>        aList addAll: {ScriptingSystem nameForInstanceVariablesCategory.
>  ScriptingSystem nameForScriptsCategory}.
>
>        ^ aList!
>
> Item was added:
> + ----- Method: Morph class>>additionsToViewerCategoryWorldGeometry (in
> category '*eToys-scripting') -----
> + additionsToViewerCategoryWorldGeometry
> +       "answer additions to the geometry viewer category"
> +
> +       ^ #( #'world geometry'
> +               (
> +                       (slot  length  'The length' Number readOnly Player
> getLength  Player  unused  )
> +                       (slot  width  'The width' Number readOnly Player
> getWidth  Player  unused  )
> +                       (slot  left   'The left edge' Number readOnly
> Player getLeft  Player  unused  )
> +                       (slot  right  'The right edge' Number readOnly
> Player getRight  Player  unused  )
> +                       (slot  top  'The top edge' Number readOnly Player
> getTop  Player  unused   )
> +                       (slot  bottom  'The bottom edge' Number readOnly
> Player getBottom  Player  unused  )
> +
> +
> +               )
> +       )
> +
> +
> + !
>
> Item was changed:
>  ----- Method: Morph>>filterViewerCategoryDictionary: (in category
> '*Etoys-scripting') -----
>  filterViewerCategoryDictionary: dict
>        "dict has keys of categories and values of priority.
>        You can  remove categories here."
> +
> -
>        self wantsConnectionVocabulary
>                ifFalse: [ dict removeKey: #'connections to me' ifAbsent:
> [].
>                        dict removeKey: #connection ifAbsent: []].
>        self wantsConnectorVocabulary
>                ifFalse: [ dict removeKey: #connector ifAbsent: [] ].
>        self wantsEmbeddingsVocabulary
>                ifFalse: [dict removeKey: #embeddings ifAbsent: []].
> +       self isWorldMorph ifFalse:
> +               [dict removeKey: #'world geometry' ifAbsent: []].
> -
>        Preferences eToyFriendly ifTrue:
>                [#(layout preferences display #'as object') do:
>                        [:sym | dict removeKey: sym ifAbsent: []].
>
> +       self isWorldMorph ifFalse:[
> +               dict removeKey: #preferences ifAbsent: []].
> -       self isWorldMorph ifFalse:
> -               [dict removeKey: #preferences ifAbsent: []].
>                dict removeKey: #display ifAbsent: []]!
>
> _______________________________________________
> etoys-dev mailing list
> etoys-dev at squeakland.org
> http://lists.squeakland.org/mailman/listinfo/etoys-dev
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakland.org/pipermail/etoys-dev/attachments/20100602/1fe4a8de/attachment.html