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

[commits at source.squeak.org]

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: []]!