[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