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

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

Name: Morphic-mt.1592
Author: mt
Time: 22 November 2019, 5:38:54.489669 pm
UUID: 7611ae0c-a1d0-ea42-84c5-0d2474fe2643
Ancestors: Morphic-mt.1591

Move rotation-specific stuff from Etoys to Morphic. It is used in Morphic anyway.

#heading, #heading:
#rotationDegrees, #rotationDegrees:
#referencePosition, #referencePosition:
#forwardDirection, #forwardDirection:

=============== Diff against Morphic-mt.1591 ===============

Item was added:
+ ----- Method: CircleMorph>>heading (in category 'rotate scale and flex') -----
+ heading
+ 	"Overwritten to store the angle in #forwardDirection."
+ 	
+ 	^ self rotationDegrees!

Item was changed:
+ ----- Method: CircleMorph>>heading: (in category 'rotate scale and flex') -----
- ----- Method: CircleMorph>>heading: (in category 'geometry eToy') -----
  heading: newHeading
+ 	"Overwritten to store the angle in #forwardDirection."
+ 
- 	"Set the receiver's heading (in eToy terms).
- 	Note that circles never use flex shells."
  	self rotationDegrees: newHeading.!

Item was changed:
+ ----- Method: MatrixTransformMorph>>heading (in category 'rotate scale and flex') -----
- ----- Method: MatrixTransformMorph>>heading (in category 'geometry eToy') -----
  heading
  	"Return the receiver's heading (in eToy terms)"
  	^ self forwardDirection + self innerAngle!

Item was added:
+ ----- Method: MatrixTransformMorph>>heading: (in category 'rotate scale and flex') -----
+ heading: newHeading
+ 	"Set the receiver's heading (in eToy terms)"
+ 	self rotateBy: ((newHeading - self forwardDirection) - self innerAngle).!

Item was changed:
+ ----- Method: MatrixTransformMorph>>setDirectionFrom: (in category 'rotate scale and flex') -----
- ----- Method: MatrixTransformMorph>>setDirectionFrom: (in category 'geometry eToy') -----
  setDirectionFrom: aPoint
  	| delta degrees |
  	delta := (self transformFromWorld globalPointToLocal: aPoint) - super rotationCenter.
  	degrees := delta degrees + 90.0.
  	self forwardDirection: (degrees \\ 360) rounded.
  !

Item was changed:
+ ----- Method: Morph>>forwardDirection (in category 'rotate scale and flex') -----
- ----- Method: Morph>>forwardDirection (in category 'accessing') -----
  forwardDirection
+ 	"Return the receiver's offset to distinguish #heading from #rotationDegrees."
+ 	
+ 	^ self valueOfProperty: #forwardDirection ifAbsent: [0.0]!
- 	"Return the receiver's forward direction (in eToy terms)"
- 	^self valueOfProperty: #forwardDirection ifAbsent:[0.0]!

Item was added:
+ ----- Method: Morph>>forwardDirection: (in category 'rotate scale and flex') -----
+ forwardDirection: newDirection
+ 
+ 	self setProperty: #forwardDirection toValue: newDirection.!

Item was added:
+ ----- Method: Morph>>heading (in category 'rotate scale and flex') -----
+ heading
+ 	"Answer the current heading, which is #rotationDegrees relative to the #forwardDirection."
+ 
+ 	^ self rotationDegrees + self forwardDirection!

Item was added:
+ ----- Method: Morph>>heading: (in category 'rotate scale and flex') -----
+ heading: newHeading
+ 
+ 	self rotationDegrees: (newHeading - self forwardDirection).!

Item was changed:
  ----- Method: Morph>>rotationDegrees (in category 'rotate scale and flex') -----
  rotationDegrees
- 	"Default implementation."
  
+ 	self isFlexed ifFalse: [^ 0.0].
+ 	self owner in: [:flexShell | ^ flexShell rotationDegrees].!
- 	^ 0.0
- !

Item was added:
+ ----- Method: Morph>>rotationDegrees: (in category 'rotate scale and flex') -----
+ rotationDegrees: degrees
+ 
+ 	self isFlexed ifFalse: [self addFlexShell].
+ 	self owner in: [:flexShell | flexShell rotationDegrees: degrees].!

Item was added:
+ ----- Method: Morph>>setDirectionFrom: (in category 'rotate scale and flex') -----
+ setDirectionFrom: aPoint
+ 	| delta degrees |
+ 	delta := (self transformFromWorld globalPointToLocal: aPoint) - self referencePosition.
+ 	degrees := delta degrees + 90.0.
+ 	self forwardDirection: (degrees \\ 360) rounded.
+ !

Item was added:
+ ----- Method: PolygonMorph>>heading (in category 'rotate scale and flex') -----
+ heading
+ 	"Overwritten to store the angle in #forwardDirection."
+ 
+ 	^ self rotationDegrees!

Item was added:
+ ----- Method: PolygonMorph>>heading: (in category 'rotate scale and flex') -----
+ heading: newHeading
+ 	"Overwritten to store the angle in #forwardDirection."
+ 
+ 	self rotationDegrees: newHeading.!

Item was changed:
+ ----- Method: PolygonMorph>>rotationDegrees: (in category 'rotate scale and flex') -----
- ----- Method: PolygonMorph>>rotationDegrees: (in category 'halo control') -----
  rotationDegrees: degrees 
  	| flex center |
  	(center := self valueOfProperty: #referencePosition) ifNil:
  		[self setProperty: #referencePosition toValue: (center := self bounds center)].
  	flex := (MorphicTransform offset: center negated)
  			withAngle: (degrees - self forwardDirection) degreesToRadians.
  	self setVertices: (vertices collect: [:v | (flex transform: v) - flex offset]).
  	self forwardDirection: degrees.
  
  !

Item was added:
+ ----- Method: SketchMorph>>heading: (in category 'rotate scale and flex') -----
+ 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!

Item was removed:
- ----- Method: TransformationMorph>>degreesOfFlex (in category 'geometry eToy') -----
- degreesOfFlex
- 	"Return any rotation due to flexing"
- 	^ self rotationDegrees!

Item was changed:
+ ----- Method: TransformationMorph>>forwardDirection (in category 'rotate scale and flex') -----
- ----- Method: TransformationMorph>>forwardDirection (in category 'accessing') -----
  forwardDirection
  	"Return the rendee's forward direction. 
  	If I have no rendee then return 0.0 degrees "
  	| rendee |
  	( rendee := self renderedMorph) == self  ifTrue: [ ^ 0.0 ] .
  	
  	^ rendee forwardDirection!

Item was changed:
+ ----- Method: TransformationMorph>>forwardDirection: (in category 'rotate scale and flex') -----
- ----- Method: TransformationMorph>>forwardDirection: (in category 'geometry eToy') -----
  forwardDirection: degrees
   "If we have a rendee set its forward direction. Else do nothing." 
  
  | rendee |
  ( rendee := self renderedMorph) == self ifTrue: [ ^ self  ] .
  	^rendee forwardDirection: degrees!

Item was changed:
+ ----- Method: TransformationMorph>>heading (in category 'rotate scale and flex') -----
- ----- Method: TransformationMorph>>heading (in category 'geometry eToy') -----
  heading
  	"End recusion when necessary."
  	| rendee |
  	(rendee := self renderedMorph) == self ifTrue: [ ^0.0 ] .
  	^ rendee heading!

Item was changed:
+ ----- Method: TransformationMorph>>heading: (in category 'rotate scale and flex') -----
- ----- Method: TransformationMorph>>heading: (in category 'geometry eToy') -----
  heading: newHeading
   "If we have a rendee set its heading. Else do nothing." 
  
  | rendee |
  ( rendee := self renderedMorph) == self ifTrue: [ ^ self  ] .
  	^rendee heading: newHeading!

Item was changed:
  ----- Method: TransformationMorph>>rotationDegrees (in category 'rotate scale and flex') -----
  rotationDegrees
+ 	"Overwritten because we can directly inform about the rotation."
+ 	
  	^ self angle radiansToDegrees negated!

Item was changed:
+ ----- Method: TransformationMorph>>rotationDegrees: (in category 'rotate scale and flex') -----
- ----- Method: TransformationMorph>>rotationDegrees: (in category 'accessing') -----
  rotationDegrees: degrees
+ 	"Overwritten because we know how to rotate our submorphs."
+ 	
  	self adjustAfter:[self angle: degrees degreesToRadians negated]!

Item was changed:
+ ----- Method: TransformationMorph>>setDirectionFrom: (in category 'rotate scale and flex') -----
- ----- Method: TransformationMorph>>setDirectionFrom: (in category 'geometry eToy') -----
  setDirectionFrom: aPoint
  	| delta degrees inner |
  	inner := self renderedMorph.
  	inner == self ifTrue:[^self].
  	delta := (inner transformFromWorld globalPointToLocal: aPoint) - inner referencePosition.
  	degrees := delta degrees + 90.0.
  	self forwardDirection: (degrees \\ 360) rounded.
  !