equal
deleted
inserted
replaced
22 |
22 |
23 Font comment:' |
23 Font comment:' |
24 COPYRIGHT (c) 1992 by Claus Gittinger |
24 COPYRIGHT (c) 1992 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
26 |
26 |
27 $Header: /cvs/stx/stx/libview/Font.st,v 1.12 1994-11-28 21:00:49 claus Exp $ |
27 $Header: /cvs/stx/stx/libview/Font.st,v 1.13 1995-02-06 00:36:10 claus Exp $ |
28 '! |
28 '! |
29 |
29 |
30 !Font class methodsFor:'documentation'! |
30 !Font class methodsFor:'documentation'! |
31 |
31 |
32 copyright |
32 copyright |
43 " |
43 " |
44 ! |
44 ! |
45 |
45 |
46 version |
46 version |
47 " |
47 " |
48 $Header: /cvs/stx/stx/libview/Font.st,v 1.12 1994-11-28 21:00:49 claus Exp $ |
48 $Header: /cvs/stx/stx/libview/Font.st,v 1.13 1995-02-06 00:36:10 claus Exp $ |
49 " |
49 " |
50 ! |
50 ! |
51 |
51 |
52 documentation |
52 documentation |
53 " |
53 " |
177 ! ! |
177 ! ! |
178 |
178 |
179 !Font class methodsFor:'instance creation'! |
179 !Font class methodsFor:'instance creation'! |
180 |
180 |
181 family:familyString face:faceString style:styleString size:sizeNum |
181 family:familyString face:faceString style:styleString size:sizeNum |
182 "returns a font for given family, face, style and size. |
182 "returns a font for given family, face, style and size with |
|
183 unspecified encoding. |
183 The returned font is not associated to a specific device" |
184 The returned font is not associated to a specific device" |
184 |
185 |
185 ^ self family:familyString |
186 ^ self family:familyString |
186 face:faceString |
187 face:faceString |
187 style:styleString |
188 style:styleString |
188 size:sizeNum |
189 size:sizeNum |
189 encoding:#iso8859 |
190 encoding:nil |
190 ! |
191 ! |
191 |
192 |
192 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym |
193 family:familyString face:faceString style:styleString size:sizeNum encoding:encodingSym |
193 "returns a font for given family, face, style, size and encoding. |
194 "returns a font for given family, face, style, size and encoding. |
194 The returned font is not associated to a specific device" |
195 The returned font is not associated to a specific device" |
260 (aDevice == aFont device) ifTrue:[ |
261 (aDevice == aFont device) ifTrue:[ |
261 (size == aFont size) ifTrue:[ |
262 (size == aFont size) ifTrue:[ |
262 (family = aFont family) ifTrue:[ |
263 (family = aFont family) ifTrue:[ |
263 (face = aFont face) ifTrue:[ |
264 (face = aFont face) ifTrue:[ |
264 (style = aFont style) ifTrue:[ |
265 (style = aFont style) ifTrue:[ |
265 (encoding == aFont encoding) ifTrue:[ |
266 (encoding isNil or:[encoding == aFont encoding]) ifTrue:[ |
266 ^ aFont |
267 ^ aFont |
267 ] |
268 ] |
268 ] |
269 ] |
269 ] |
270 ] |
270 ] |
271 ] |