The Trunk: MorphicExtras-mt.294.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: MorphicExtras-mt.294.mcz

commits-2
Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-mt.294.mcz

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

Name: MorphicExtras-mt.294
Author: mt
Time: 26 April 2021, 3:08:04.000131 pm
UUID: c6d8ad6a-4132-bc46-95e0-57a6854b0ce6
Ancestors: MorphicExtras-eem.293

Adds missing example for moving-eye morph.

=============== Diff against MorphicExtras-eem.293 ===============

Item was added:
+ ----- Method: MovingEyeMorph class>>extraExampleSqueakGhostIsWatchingYou (in category 'examples') -----
+ extraExampleSqueakGhostIsWatchingYou
+ "MovingEyeMorph extraExampleSqueakGhostIsWatchingYou openInHand"
+
+ | logoMorph leftEye rightEye |
+ logoMorph := (Form squeakLogo "collectColors: #negated") asMorph.
+ leftEye := (self color: Color white irisColor: Color black)
+ extent: logoMorph extent * (0.1 @ 0.15);
+ center: (logoMorph pointAtFraction: 0.39 @ 0.55);
+ yourself.
+ rightEye := (self color: Color white irisColor: Color black)
+ extent: logoMorph extent * (0.1 @ 0.15);
+ center: (logoMorph pointAtFraction: 0.59 @ 0.56);
+ yourself.
+ logoMorph addAllMorphs: {leftEye. rightEye}.
+ ^ logoMorph.!