[etoys-dev] Etoys: Etoys-bf.33.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Aug 14 13:05:04 EDT 2010
Bert Freudenberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-bf.33.mcz
==================== Summary ====================
Name: Etoys-bf.33
Author: bf
Time: 14 August 2010, 7:04:24 pm
UUID: 02201833-4be7-4081-86f0-fe2909d731c9
Ancestors: Etoys-Richo.31
Merge from inbox
--------------------------
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-Richo.31 ===============
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: []]!
More information about the etoys-dev
mailing list