equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
17 category:'Graphics-Support' |
17 category:'Graphics-Support' |
18 ! |
18 ! |
19 |
19 |
20 FontDescription comment:' |
20 FontDescription comment:' |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libview/Attic/FontDescr.st,v 1.1 1994-08-05 01:14:09 claus Exp $ |
24 $Header: /cvs/stx/stx/libview/Attic/FontDescr.st,v 1.2 1995-02-06 00:36:20 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !FontDescription class methodsFor:'documentation'! |
27 !FontDescription class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
30 " |
30 " |
31 COPYRIGHT (c) 1994 by Claus Gittinger |
31 COPYRIGHT (c) 1994 by Claus Gittinger |
32 All Rights Reserved |
32 All Rights Reserved |
33 |
33 |
34 This software is furnished under a license and may be used |
34 This software is furnished under a license and may be used |
35 only in accordance with the terms of that license and with the |
35 only in accordance with the terms of that license and with the |
36 inclusion of the above copyright notice. This software may not |
36 inclusion of the above copyright notice. This software may not |
37 be provided or otherwise made available to, or used by, any |
37 be provided or otherwise made available to, or used by, any |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libview/Attic/FontDescr.st,v 1.1 1994-08-05 01:14:09 claus Exp $ |
45 $Header: /cvs/stx/stx/libview/Attic/FontDescr.st,v 1.2 1995-02-06 00:36:20 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
62 |
62 |
63 !FontDescription class methodsFor:'instance creation'! |
63 !FontDescription class methodsFor:'instance creation'! |
64 |
64 |
65 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym |
65 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym |
66 ^ self new |
66 ^ self new |
67 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym |
67 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym |
68 ! ! |
68 ! ! |
69 |
69 |
70 !FontDescription methodsFor:'accessing'! |
70 !FontDescription methodsFor:'accessing'! |
71 |
71 |
72 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym |
72 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingString |
73 family := familyString. |
73 family := familyString asSymbol. |
74 face := faceString. |
74 faceString notNil ifTrue:[ |
75 style := styleString. |
75 face := faceString asSymbol. |
|
76 ]. |
|
77 styleString notNil ifTrue:[ |
|
78 style := styleString asSymbol. |
|
79 ]. |
76 size := sizeNum. |
80 size := sizeNum. |
77 encoding := encodingSym. |
81 encodingString notNil ifTrue:[ |
|
82 encoding := encodingString asSymbol. |
|
83 ] |
78 ! |
84 ! |
79 |
85 |
80 family |
86 family |
81 "return the family, a string" |
87 "return the family, a string" |
82 |
88 |