[etoys-dev] Etoys: Etoys-Richo.36.mcz

[commits at source.squeak.org]

Ricardo Moran uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-Richo.36.mcz

==================== Summary ====================

Name: Etoys-Richo.36
Author: Richo
Time: 16 August 2010, 10:10:11 pm
UUID: e09dc773-6a85-604d-937f-3b39303458a3
Ancestors: Etoys-bf.35

* It seems the "world geometry" category made the slots "length" and "width" behave as readOnly for all morphs.
I changed the "world geometry" viewer category to make all slots readWrite. They won't work for the world but at least the other morphs slots are now readWrite again. Also, all of the "world geometry" slots were supposed to be readOnly but they wasn't so I guess this is not a big deal.

=============== Diff against Etoys-bf.35 ===============

Item was changed:
  ----- Method: Player>>setLength: (in category 'slot getters/setters') -----
  setLength: aLength
  	"Set the length of the receiver."
  
  	| cost lengthToUse |
+ 	cost _ self costume.
+ 	cost isWorldMorph ifTrue: [^self].
+ 	cost isLineMorph
- 	((cost _ self costume) isLineMorph)
  		ifTrue:
  			[^ cost unrotatedLength: aLength].
  	lengthToUse _ cost isRenderer
  		ifTrue:
  			[aLength / cost scaleFactor]
  		ifFalse:
  			[aLength].
  	cost renderedMorph height: lengthToUse!

Item was changed:
  ----- Method: Morph class>>additionsToViewerCategoryWorldGeometry (in category '*eToys-scripting') -----
  additionsToViewerCategoryWorldGeometry
  	"answer additions to the geometry viewer category"
  
  	^ #( #'world geometry' 
  		(
+ 			(slot  length  'The length' Number readWrite Player getLength  Player  setLength:  ) 
+ 			(slot  width  'The width' Number readWrite Player getWidth  Player  setWidth:  )
+ 			(slot  left   'The left edge' Number readWrite Player getLeft  Player  setLeft:  )
+ 			(slot  right  'The right edge' Number readWrite Player getRight  Player  setRight:  )
+ 			(slot  top  'The top edge' Number readWrite Player getTop  Player  setTop:   ) 
+ 			(slot  bottom  'The bottom edge' Number readWrite Player getBottom  Player  setBottom:  ) 
- 			(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  ) 
  
  			
  		)
  	)
  
  
  !