[etoys-dev] Etoys: Morphic-kfr.20.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-kfr.20.mcz

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

Name: Morphic-kfr.20
Author: kfr
Time: 17 June 2010, 12:57:37 am
UUID: 04de9588-6502-4a43-87db-be783f97a49c
Ancestors: Morphic-kfr.19


SQ-94
Flip operations broken on Etoys

=============== Diff against Morphic-kfr.19 ===============

Item was changed:
  ----- Method: SketchMorph>>flipVertical (in category 'e-toy support') -----
  flipVertical
  
+ 	|  r |
+ 	r _ self rotationCenter.
+ 	self top:  self top - (1.0 - (2 * r y) * self height).
+ 	self form: (self form flipBy: #vertical centerAt: self form center).
+ 	self rotationCenter:  r x @ (1 - r y).!
- 	self form: (self form flipBy: #vertical centerAt: self form center)!

Item was added:
+ ----- Method: SketchMorph class>>additionsToViewerCategories (in category 'scripting') -----
+ additionsToViewerCategories
+ 	"Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories."
+ 
+ 	^ #((graphics (
+ (slot graphic 	'The picture currently being worn' Graphic	 readWrite Player getGraphic Player setGraphic:)
+ (command wearCostumeOf: 'wear the costume of...' Player)
+ (slot baseGraphic 	'The picture originally painted for this object, but can subsequently be changed via menu or script' Graphic	 readWrite Player getBaseGraphic Player setBaseGraphic:)
+ (command restoreBaseGraphic 'Make my picture be the one I remember in my baseGraphic')
+ 
+ (slot rotationStyle 'How the picture should change when the heading is modified' RotationStyle readWrite Player getRotationStyle Player setRotationStyle:)
+ (command flip 'Flip left right' Player)
+ (command tumble 'Flip up down' Player)
+ )))
+ 
+ 
+ !

Item was changed:
  ----- Method: SketchMorph>>flipHorizontal (in category 'e-toy support') -----
  flipHorizontal
  
+ 	|  r |
+ 	r _ self rotationCenter.
+ 	self left:  self left - (1.0 - (2 * r x) * self width).
+ 	self form: (self form flipBy: #horizontal centerAt: self form center).
+ 	self rotationCenter: (1 - r x) @ (r y).!
- 	self form: (self form flipBy: #horizontal centerAt: self form center)!