The Trunk: MorphicExtras-dtl.283.mcz

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-dtl.283.mcz

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

Name: MorphicExtras-dtl.283
Author: dtl
Time: 28 January 2021, 8:12:14.767195 pm
UUID: 66550323-c456-4887-8a55-25d69ad05053
Ancestors: MorphicExtras-mt.282

For reloadable Etoys per instructions at http://wiki.squeak.org/squeak/2848 section 2.1
Reclassify curvePrototype, trianglePrototype (Etoys, MorphicExtras)

=============== Diff against MorphicExtras-mt.282 ===============

Item was added:
+ ----- Method: PolygonMorph class>>curvePrototype (in category '*MorphicExtras-instance creation') -----
+ curvePrototype
+ "Answer an instance of the receiver that will serve as a prototypical curve"
+
+ | aa |
+ aa := self new.
+ aa vertices: (Array with: 0@80 with: 70@90 with: 60@0)
+ color: Color orange lighter
+ borderWidth: 4
+ borderColor: Color black.
+ aa beSmoothCurve.
+ aa setNameTo: 'Curve'.
+ aa makeForwardArrow. "is already open"
+ aa computeBounds.
+ ^ aa
+
+ "
+ PolygonMorph curvePrototype openInHand
+ "!

Item was added:
+ ----- Method: PolygonMorph class>>trianglePrototype (in category '*MorphicExtras-instance creation') -----
+ trianglePrototype
+ "Answer an instance of the receiver that will serve as a prototypical triangle"
+
+ | aa |
+ aa := self new.
+ aa vertices: {0.0@0.0. 138.0@0.0. -37.0@ -74.0}
+ color:  (TranslucentColor r: 0.387 g: 1.0 b: 0.548 alpha: 0.463)
+ borderWidth: 3
+ borderColor: Color black.
+ aa setProperty: #noNewVertices toValue: true.
+ aa setNameTo: 'Triangle'.
+ aa makeForwardArrow. "is already open"
+ aa computeBounds.
+ aa addHandles.
+ ^ aa
+
+ "
+ PolygonMorph trianglePrototype openInHand
+ "!