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.!