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@lists.squeakfoundation.org