On Wed, Jun 2, 2010 at 7:51 AM, karl ramberg <
karlramberg@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@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
>
>
> _______________________________________________
> etoys-dev mailing list
>
etoys-dev@squeakland.org>
http://lists.squeakland.org/mailman/listinfo/etoys-dev
>
>