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 + "!