The Trunk: EToys-mt.371.mcz

Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.371.mcz

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

Name: EToys-mt.371
Author: mt
Time: 22 November 2019, 5:39:38.633669 pm
UUID: db7b1ef9-f86e-594c-a25c-fd0628f81baf
Ancestors: EToys-mt.370

Complements Morphic-mt.1592.

=============== Diff against EToys-mt.370 ===============

Item was removed:
- ----- Method: MatrixTransformMorph>>heading: (in category '*Etoys-geometry') -----
- heading: newHeading
- "Set the receiver's heading (in eToy terms)"
- self rotateBy: ((newHeading - self forwardDirection) - self innerAngle).!

Item was removed:
- ----- Method: Morph>>degreesOfFlex (in category '*Etoys-geometry') -----
- degreesOfFlex
- "Return any rotation due to flexing"
- "NOTE: because renderedMorph, which is used by the halo to set heading, goes down through dropShadows as well as transformations, we need this method (and its other implems) to come back up through such a chain."
- ^ 0.0!

Item was removed:
- ----- Method: Morph>>forwardDirection: (in category '*Etoys-geometry') -----
- forwardDirection: newDirection
- "Set the receiver's forward direction (in eToy terms)"
- self setProperty: #forwardDirection toValue: newDirection.!

Item was removed:
- ----- Method: Morph>>heading (in category '*Etoys-geometry') -----
- heading
- "Return the receiver's heading (in eToy terms)"
- owner ifNil: [^ self forwardDirection].
- ^ self forwardDirection + owner degreesOfFlex!

Item was removed:
- ----- Method: Morph>>heading: (in category '*Etoys-geometry') -----
- heading: newHeading
- "Set the receiver's heading (in eToy terms)"
- self isFlexed ifFalse:[self addFlexShell].
- owner rotationDegrees: (newHeading - self forwardDirection).!

Item was removed:
- ----- Method: Morph>>rotationDegrees: (in category '*Etoys-Squeakland-geometry eToy') -----
- rotationDegrees: aFloat
- ^ self heading: aFloat!

Item was removed:
- ----- Method: Morph>>setDirectionFrom: (in category '*Etoys-geometry') -----
- setDirectionFrom: aPoint
- | delta degrees |
- delta := (self transformFromWorld globalPointToLocal: aPoint) - self referencePosition.
- degrees := delta degrees + 90.0.
- self forwardDirection: (degrees \\ 360) rounded.
- !

Item was removed:
- ----- Method: PolygonMorph>>heading: (in category '*Etoys-geometry') -----
- heading: newHeading
- "Set the receiver's heading (in eToy terms).
- Note that polygons never use flex shells."
- self rotationDegrees: newHeading.!

Item was removed:
- ----- Method: SketchMorph>>heading: (in category '*Etoys-geometry eToy') -----
- heading: newHeading
- "If not rotating normally, change forward direction rather than heading"
- rotationStyle == #normal ifTrue:[^super heading: newHeading].
- self isFlexed
- ifTrue:[self forwardDirection: newHeading - owner rotationDegrees]
- ifFalse:[self forwardDirection: newHeading].
- self layoutChanged!