StringMorph right aligned in a container Morph
Last updated at 12:08 pm UTC on 15 November 2020
bgColor := Color white.
fontColor := Color black.
rCell := Morph new.
rCell extent: 60@50.
rCell layoutPolicy: TableLayout new.
rCell listDirection: #rightToLeft.
rCell vResizing: #shrinkWrap.
rCell hResizing: #rigid.
rCell color: bgColor.
label := 10 printString.
s := (StringMorph contents: label
font: (StrikeFont familyName: 'Bitmap DejaVu Sans' size: 36))
color: fontColor.
rCell addMorph: s.
rCell openInHand