The Inbox: Graphics-ct.423.mcz

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

The Inbox: Graphics-ct.423.mcz

commits-2
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!