9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 Object subclass:#FontDescription |
13 Object subclass:#FontDescription |
14 instanceVariableNames:'family face style size encoding' |
14 instanceVariableNames:'family face style size encoding |
15 classVariableNames:'' |
15 flags masks pixelSize' |
|
16 classVariableNames:'BoldnessMask FixedFlag ItalicFlag OutlineFlag SerifFlag |
|
17 ShadowFlag StrikeoutFlag UnderlineFlag' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
17 category:'Graphics-Support' |
19 category:'Graphics-Support' |
18 ! |
20 ! |
19 |
21 |
20 !FontDescription class methodsFor:'documentation'! |
22 !FontDescription class methodsFor:'documentation'! |
36 documentation |
38 documentation |
37 " |
39 " |
38 FontDescription is just a place-holder for scanned font names. |
40 FontDescription is just a place-holder for scanned font names. |
39 |
41 |
40 [Instance variables:] |
42 [Instance variables:] |
41 |
|
42 family <String> the fonts family ('courier', 'helvetica' etc) |
43 family <String> the fonts family ('courier', 'helvetica' etc) |
43 face <String> the fonts face ('bold', 'medium' etc) |
44 face <String> the fonts face ('bold', 'medium' etc) |
44 style <String> the fonts style ('roman', 'italic', 'oblique') |
45 style <String> the fonts style ('roman', 'italic', 'oblique') |
45 size <String> the fonts size (not in pixels) |
46 size <String> the fonts size (not in pixels) |
46 encoding <Symbol> the fonts encoding (usually #iso8859) |
47 encoding <Symbol> the fonts encoding (usually #iso8859) |
47 |
48 |
|
49 manufacturer <nil|String|Array> |
|
50 the fonts origin - if known |
|
51 name <nil|String|Array> |
|
52 the platform specific name |
|
53 |
|
54 flags <SmallInteger> holds serif/italic etc. as flag bits |
|
55 masks <SmallInteger> currently dummy; to allow ST-80 compatible subclassing |
|
56 pixelSize <SmallInteger> currently dummy; to allow ST-80 compatible subclassing |
|
57 |
|
58 [class variables:] |
|
59 BoldnessMask currently dummy; to allow ST-80 compatible subclassing |
|
60 FixedFlag currently dummy; to allow ST-80 compatible subclassing |
|
61 ItalicFlag currently dummy; to allow ST-80 compatible subclassing |
|
62 OutlineFlag currently dummy; to allow ST-80 compatible subclassing |
|
63 SerifFlag currently dummy; to allow ST-80 compatible subclassing |
|
64 ShadowFlag currently dummy; to allow ST-80 compatible subclassing |
|
65 StrikeoutFlag currently dummy; to allow ST-80 compatible subclassing |
|
66 UnderlineFlag currently dummy; to allow ST-80 compatible subclassing |
|
67 |
48 [author:] |
68 [author:] |
49 Claus Gittinger |
69 Claus Gittinger |
50 |
70 |
51 [see also:] |
71 [see also:] |
52 Font |
72 Font |
53 FontPanel |
73 FontPanel |
54 GraphicsContext |
74 GraphicsContext |
55 ( introduction to view programming :html: programming/viewintro.html#FONTS ) |
75 ( introduction to view programming :html: programming/viewintro.html#FONTS ) |
56 " |
76 " |
|
77 ! ! |
|
78 |
|
79 !FontDescription class methodsFor:'initialization'! |
|
80 |
|
81 initialize |
|
82 "initialize class variables" |
|
83 |
|
84 BoldnessMask := 2r0000000111. "/ allows for 8 boldnesses to be encoded |
|
85 FixedFlag := 2r0000001000. |
|
86 ItalicFlag := 2r0000010000. |
|
87 OutlineFlag := 2r0000100000. |
|
88 SerifFlag := 2r0001000000. |
|
89 ShadowFlag := 2r0010000000. |
|
90 StrikeoutFlag := 2r0100000000. |
|
91 UnderlineFlag := 2r1000000000. |
57 ! ! |
92 ! ! |
58 |
93 |
59 !FontDescription class methodsFor:'instance creation'! |
94 !FontDescription class methodsFor:'instance creation'! |
60 |
95 |
61 family:familyString |
96 family:familyString |