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

karl ramberg karlramberg at gmail.com
Wed Jun 2 09:28:16 EDT 2010


The World extent and bounds have a special role and can be hard to.
I'm not sure how many other special cases we need like this, it's hard to
estimate.

What do the edu team think of this kind of extention to the Vocabulary ?

Karl




On Wed, Jun 2, 2010 at 4:10 AM, Korakurider <korakurider at gmail.com> wrote:

> Hi, Karl.
> I can't say if there is not problem :-), I really tried it and it
> seems to work, the name of category exported to POT.
>
> But we might want to publicly discuss changes to vocabulary with wider
> audience (especially folks of edu team)  in squeakland list or
> tracker.
>
> /Korakurider
>
> On Wed, Jun 2, 2010 at 7:51 AM, karl ramberg <karlramberg at gmail.com>
> wrote:
> > 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
> >
> >
> > _______________________________________________
> > 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/squeakland/attachments/20100602/b599e850/attachment.html


More information about the squeakland mailing list