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