equal
deleted
inserted
replaced
264 |
264 |
265 ^ newFont |
265 ^ newFont |
266 |
266 |
267 "Modified: / 26.9.1999 / 13:49:45 / cg" |
267 "Modified: / 26.9.1999 / 13:49:45 / cg" |
268 ! ! |
268 ! ! |
269 |
|
270 |
|
271 |
269 |
272 !Font methodsFor:'accessing'! |
270 !Font methodsFor:'accessing'! |
273 |
271 |
274 device |
272 device |
275 "return the device I am on. |
273 "return the device I am on. |
522 aStream nextPutAll:('a ' , family , '-Font'). |
520 aStream nextPutAll:('a ' , family , '-Font'). |
523 ^ self. |
521 ^ self. |
524 ]. |
522 ]. |
525 aStream nextPutAll:('a ' , family , '-' , |
523 aStream nextPutAll:('a ' , family , '-' , |
526 face , '-' , |
524 face , '-' , |
527 style , '-' , |
525 style printString , '-' , |
528 size printString , |
526 size printString , |
529 ' (' , encoding printString , ')' , |
527 ' (' , encoding printString , ')' , |
530 '-Font') |
528 '-Font') |
531 |
529 |
532 "Modified: 20.4.1996 / 23:25:11 / cg" |
530 "Modified: 20.4.1996 / 23:25:11 / cg" |
1159 ! ! |
1157 ! ! |
1160 |
1158 |
1161 !Font class methodsFor:'documentation'! |
1159 !Font class methodsFor:'documentation'! |
1162 |
1160 |
1163 version |
1161 version |
1164 ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.100 2007-04-13 14:15:42 fm Exp $' |
1162 ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.101 2007-10-17 09:33:45 sr Exp $' |
1165 ! ! |
1163 ! ! |
1166 |
1164 |
1167 Font initialize! |
1165 Font initialize! |