A new version of Graphics was added to project The Inbox:
http://source.squeak.org/inbox/Graphics-ct.423.mcz==================== Summary ====================
Name: Graphics-ct.423
Author: ct
Time: 3 October 2019, 1:16:38.424083 am
UUID: 23bd6e39-af77-de45-9be7-656e21b5c970
Ancestors: Graphics-nice.417
Add constructor for FormSetFont
=============== Diff against Graphics-nice.417 ===============
Item was changed:
----- Method: FormSetFont class>>copy:toClipBoardAs:ascent: (in category 'examples') -----
copy: charForm toClipBoardAs: char ascent: ascent
Clipboard clipboardText:
(Text string: char asString
attribute: (TextFontReference toFont:
+ (FormSetFont
- (FormSetFont new
fromFormArray: (Array with: charForm)
asciiStart: char asciiValue
ascent: ascent)))
"
The S in the Squeak welcome window was installed by doing the following
in a workspace (where the value of, eg, charForm will persist through BitEdit...
f := TextStyle default fontAt: 4.
oldS := f characterFormAt: $S.
charForm := Form extent: oldS extent depth: 8.
oldS displayOn: charForm.
charForm bitEdit.
...Play around with the BitEditor, then accept and close...
FormSetFont copy: charForm toClipBoardAs: $S ascent: f ascent.
...Then do a paste into the Welcome window
"!
Item was added:
+ ----- Method: FormSetFont class>>fromFormArray:asciiStart:ascent: (in category 'instance creation') -----
+ fromFormArray: formArray asciiStart: asciiStart ascent: ascentVal
+
+ ^ self new
+ fromFormArray: formArray asciiStart: asciiStart ascent: ascentVal;
+ yourself!