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)!
etoys-dev@lists.squeakfoundation.org