equal
deleted
inserted
replaced
254 size:sizeArgOrNil |
254 size:sizeArgOrNil |
255 sizeUnit:sizeUnitArg |
255 sizeUnit:sizeUnitArg |
256 encoding:encodingSym |
256 encoding:encodingSym |
257 device:nil. |
257 device:nil. |
258 |
258 |
259 "look if this font is already known on the default device (the most common case)" |
259 "/ "look if this font is already known on the default device (the most common case)" |
260 |
260 "/ don't do this!! |
261 Display notNil ifTrue:[ |
261 "/ is incompatible with Xft fonts. If reenabled, check printing in document viewer with XFT fonts enabled. |
262 Display deviceFonts do:[:aFont | |
262 "/ |
263 (newFont sameDeviceFontAs:aFont) ifTrue:[ |
263 "/ Display notNil ifTrue:[ |
264 "/ self assert:(aFont encoding = newFont encoding). |
264 "/ Display deviceFonts do:[:aFont | |
265 ^ aFont |
265 "/ (newFont sameDeviceFontAs:aFont) ifTrue:[ |
266 ] |
266 "/ "/ self assert:(aFont encoding = newFont encoding). |
267 ] |
267 "/ ^ aFont |
268 ]. |
268 "/ ] |
|
269 "/ ] |
|
270 "/ ]. |
269 |
271 |
270 ^ newFont |
272 ^ newFont |
271 |
273 |
272 "Modified: / 26.9.1999 / 13:49:45 / cg" |
274 "Modified: / 26.9.1999 / 13:49:45 / cg" |
273 ! ! |
275 ! ! |
1335 ! ! |
1337 ! ! |
1336 |
1338 |
1337 !Font class methodsFor:'documentation'! |
1339 !Font class methodsFor:'documentation'! |
1338 |
1340 |
1339 version |
1341 version |
1340 ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.137 2014-05-08 08:05:00 stefan Exp $' |
1342 ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.138 2014-07-09 01:38:27 cg Exp $' |
1341 ! |
1343 ! |
1342 |
1344 |
1343 version_CVS |
1345 version_CVS |
1344 ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.137 2014-05-08 08:05:00 stefan Exp $' |
1346 ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.138 2014-07-09 01:38:27 cg Exp $' |
1345 ! ! |
1347 ! ! |
1346 |
1348 |
1347 |
1349 |
1348 Font initialize! |
1350 Font initialize! |