equal
deleted
inserted
replaced
215 Replacements at:'lucida' put:'helvetica'. |
215 Replacements at:'lucida' put:'helvetica'. |
216 Replacements at:'lucidabright' put:'helvetica'. |
216 Replacements at:'lucidabright' put:'helvetica'. |
217 Replacements at:'lucidatypewriter' put:'courier'. |
217 Replacements at:'lucidatypewriter' put:'courier'. |
218 Replacements at:'charter' put:'times'. |
218 Replacements at:'charter' put:'times'. |
219 Replacements at:'terminal' put:'courier'. |
219 Replacements at:'terminal' put:'courier'. |
|
220 |
|
221 Screen default platformName = 'WIN32' ifTrue:[ |
|
222 Replacements at:'helvetica' put:'Arial'. |
|
223 ]. |
220 ] |
224 ] |
221 ! ! |
225 ! ! |
222 |
226 |
223 !Font class methodsFor:'instance creation'! |
227 !Font class methodsFor:'instance creation'! |
224 |
228 |
290 |
294 |
291 ^ device |
295 ^ device |
292 |
296 |
293 "Created: 28.5.1996 / 18:39:53 / cg" |
297 "Created: 28.5.1996 / 18:39:53 / cg" |
294 ! ! |
298 ! ! |
|
299 |
295 |
300 |
296 !Font methodsFor:'copying'! |
301 !Font methodsFor:'copying'! |
297 |
302 |
298 deepCopyUsing:aDictionary postCopySelector:postCopySelector |
303 deepCopyUsing:aDictionary postCopySelector:postCopySelector |
299 ^ self |
304 ^ self |
445 ] doWhile:[id isNil and:[trySize := trySize - 1. trySize > 4]]. |
450 ] doWhile:[id isNil and:[trySize := trySize - 1. trySize > 4]]. |
446 |
451 |
447 id notNil ifTrue:[ |
452 id notNil ifTrue:[ |
448 ('Font [info]: use alternative size ', trySize printString, ' for ' , (self userFriendlyName)) infoPrintCR. |
453 ('Font [info]: use alternative size ', trySize printString, ' for ' , (self userFriendlyName)) infoPrintCR. |
449 ] ifFalse:[ |
454 ] ifFalse:[ |
450 alternative := Replacements at:family ifAbsent:nil. |
455 alternative := Replacements at:family asLowercase ifAbsent:nil. |
451 alternative notNil ifTrue:[ |
456 alternative notNil ifTrue:[ |
452 trySize := size - 1. |
457 trySize := size - 1. |
453 [ |
458 [ |
454 id := aDevice getFontWithFamily:alternative |
459 id := aDevice getFontWithFamily:alternative |
455 face:face |
460 face:face |
1178 ! ! |
1183 ! ! |
1179 |
1184 |
1180 !Font class methodsFor:'documentation'! |
1185 !Font class methodsFor:'documentation'! |
1181 |
1186 |
1182 version |
1187 version |
1183 ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.105 2008-10-07 16:38:50 cg Exp $' |
1188 ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.106 2009-01-22 13:12:40 sr Exp $' |
1184 ! ! |
1189 ! ! |
1185 |
1190 |
1186 Font initialize! |
1191 Font initialize! |