New subject: Etoys Inbox: Etoys-kfr.16.mcz

2 Jun 2010

      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@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@squeakland.org
http://lists.squeakland.org/mailman/listinfo/etoys-dev

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

----- Method: Player>>categoriesForWorld (in category 'slots-kernel')

----- Method: Player>>categoriesForWorld (in category 'slots-kernel')