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 at 80 with: 70 at 90 with: 60 at 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 at 0.0. 138.0 at 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
+ "!