equal
deleted
inserted
replaced
1061 sizeUnit:sizeUnit |
1061 sizeUnit:sizeUnit |
1062 encoding:encoding) onDevice:self graphicsDevice. |
1062 encoding:encoding) onDevice:self graphicsDevice. |
1063 ! |
1063 ! |
1064 |
1064 |
1065 asFontDescription |
1065 asFontDescription |
1066 ^ self |
1066 self class == FontDescription ifTrue:[^ self]. |
|
1067 |
|
1068 ^ FontDescription |
|
1069 family:family |
|
1070 face:face |
|
1071 style:style |
|
1072 size:size |
|
1073 sizeUnit:(sizeUnit ? #pt) |
|
1074 encoding:encoding |
|
1075 |
|
1076 "Modified: / 01-03-2019 / 11:49:05 / Claus Gittinger" |
1067 ! |
1077 ! |
1068 |
1078 |
1069 asFontWithPixelSize:anotherSize |
1079 asFontWithPixelSize:anotherSize |
1070 "return another font corresponding to the receiver's family, face and style but |
1080 "return another font corresponding to the receiver's family, face and style but |
1071 with another pixel size. |
1081 with another pixel size. |
1440 "append a user-friendly representation of the receiver to aStream" |
1450 "append a user-friendly representation of the receiver to aStream" |
1441 |
1451 |
1442 aStream nextPutAll:self userFriendlyName |
1452 aStream nextPutAll:self userFriendlyName |
1443 ! |
1453 ! |
1444 |
1454 |
|
1455 storeOn:aStream |
|
1456 "append a user-friendly representation of the receiver to aStream" |
|
1457 |
|
1458 "append a character sequence to the argument, aStream from which the |
|
1459 receiver can be reconstructed using readFrom:." |
|
1460 |
|
1461 aStream |
|
1462 nextPutAll:'('; |
|
1463 nextPutAll:self className; |
|
1464 nextPutAll:' family:'. family storeOn:aStream. |
|
1465 aStream nextPutAll:' face:'. face storeOn:aStream. |
|
1466 aStream nextPutAll:' style:'. style storeOn:aStream. |
|
1467 aStream nextPutAll:' size:'. size storeOn:aStream. |
|
1468 aStream nextPutAll:' encoding:'. encoding storeOn:aStream. |
|
1469 aStream nextPut:$) |
|
1470 |
|
1471 " |
|
1472 Label defaultFont storeString |
|
1473 Label defaultFont asFontDescription storeString |
|
1474 " |
|
1475 |
|
1476 "Created: / 01-03-2019 / 11:54:15 / Claus Gittinger" |
|
1477 ! |
|
1478 |
1445 userFriendlyName |
1479 userFriendlyName |
1446 "return a user-friendly printed representation of the receiver" |
1480 "return a user-friendly printed representation of the receiver" |
1447 |
1481 |
1448 |nm| |
1482 |nm| |
1449 |
1483 |