[squeak-dev] The Inbox: MorphicExtras-ct.269.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 1 16:33:58 UTC 2019


A new version of MorphicExtras was added to project The Inbox:
http://source.squeak.org/inbox/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!



More information about the Squeak-dev mailing list