The Trunk: MorphicExtras-ct.269.mcz

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ct.269.mcz

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

Name: MorphicExtras-ct.269
Author: ct
Time: 1 October 2019, 6:33:51.583339 pm
UUID: 99e1febf-d775-b743-9e00-1b95bab0bf68
Ancestors: MorphicExtras-ct.267

Adds CurveMorph examples.

This commit is part of reconstruction of Objectland (also known as "The Worlds of Squeak"). For more information, see: http://forum.world.st/The-Inbox-MorphicExtras-ct-267-mcz-td5104764.html

=============== Diff against MorphicExtras-ct.267 ===============

Item was added:
+ ----- Method: CurveMorph class>>extraExampleArrow (in category '*MorphicExtras-examples') -----
+ extraExampleArrow
+ "CurveMorph extraExampleArrow openInHand"
+
+ | arrow |
+ arrow := CurveMorph
+ vertices: {200 @ 75. 35 @ 0. 40 @ 55. -55 @ 30}
+ color: Color veryDarkGray
+ borderWidth: 5
+ borderColor: Color veryDarkGray.
+ arrow makeOpen; makeForwardArrow; beSmoothCurve.
+ arrow addHandles.
+ ^ arrow!

Item was added:
+ ----- Method: CurveMorph class>>extraExampleTextFlow (in category '*MorphicExtras-examples') -----
+ extraExampleTextFlow
+ "CurveMorph extraExampleTextFlow openInHand"
+
+ | curve text |
+ curve := CurveMorph
+ vertices: {135 @ 270. 75 @ 200. 50 @ 150. 100 @ 100. 125 @ 150. 175 @ 100. 200 @ 150. 175 @ 200 . 115 @ 340} * RealEstateAgent scaleFactor
+ color: Color cyan
+ borderWidth: 25 * RealEstateAgent scaleFactor
+ borderColor: Color salmon.
+ curve makeOpen; beSmoothCurve.
+ text := ('Texts can also follow ........................................ an open curve. ' asText
+ , ('So morphic!!' asText
+ addAttribute: TextEmphasis italic;
+ addAttribute: (TextColor color: Color blue);
+ yourself))
+ addAttribute: (TextFontChange fontNumber: (3.4 * RealEstateAgent scaleFactor) rounded);
+ asMorph.
+ text textColor: Color yellow.
+ curve addMorph: text.
+ text followCurve.
+ ^ curve!