equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
3 COPYRIGHT (c) 2016 Jan Vrany |
3 COPYRIGHT (c) 2016 Jan Vrany |
|
4 COPYRIGHT (c) 2022 Patrik Svestka |
4 All Rights Reserved |
5 All Rights Reserved |
5 |
6 |
6 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
7 only in accordance with the terms of that license and with the |
8 only in accordance with the terms of that license and with the |
8 inclusion of the above copyright notice. This software may not |
9 inclusion of the above copyright notice. This software may not |
30 |
31 |
31 copyright |
32 copyright |
32 " |
33 " |
33 COPYRIGHT (c) 1994 by Claus Gittinger |
34 COPYRIGHT (c) 1994 by Claus Gittinger |
34 COPYRIGHT (c) 2016 Jan Vrany |
35 COPYRIGHT (c) 2016 Jan Vrany |
|
36 COPYRIGHT (c) 2022 Patrik Svestka |
35 All Rights Reserved |
37 All Rights Reserved |
36 |
38 |
37 This software is furnished under a license and may be used |
39 This software is furnished under a license and may be used |
38 only in accordance with the terms of that license and with the |
40 only in accordance with the terms of that license and with the |
39 inclusion of the above copyright notice. This software may not |
41 inclusion of the above copyright notice. This software may not |
660 ! |
662 ! |
661 |
663 |
662 face |
664 face |
663 "return the face, a string" |
665 "return the face, a string" |
664 |
666 |
|
667 face isNil ifTrue:[^ self class defaultFace]. |
665 ^ face |
668 ^ face |
|
669 |
|
670 "Modified (format): / 20-06-2022 / 09:06:36 / Patrik Svestka <patrik.svestka@gmail.com>" |
666 ! |
671 ! |
667 |
672 |
668 face:aString |
673 face:aString |
669 "set the face, a string such as 'bold'" |
674 "set the face, a string such as 'bold'" |
670 |
675 |
898 ! |
903 ! |
899 |
904 |
900 style |
905 style |
901 "return the style, a string" |
906 "return the style, a string" |
902 |
907 |
|
908 style isNil ifTrue:[^ self class defaultStyle]. |
903 ^ style |
909 ^ style |
|
910 |
|
911 "Modified (format): / 20-06-2022 / 09:06:43 / Patrik Svestka <patrik.svestka@gmail.com>" |
904 ! |
912 ! |
905 |
913 |
906 style:aString |
914 style:aString |
907 "set the style" |
915 "set the style" |
908 |
916 |
970 pixelSize: aFont pixelSize |
978 pixelSize: aFont pixelSize |
971 encoding: aFont encoding |
979 encoding: aFont encoding |
972 |
980 |
973 "Modified: / 29-02-2016 / 08:30:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
981 "Modified: / 29-02-2016 / 08:30:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
974 |
982 |
975 ! |
983 ! |
976 |
984 |
977 sameFamily: otherFamily face: otherFace style: otherStyle size: otherSize unit: otherSizeUnit pixelSize: otherPixelSize encoding: otherEncoding |
985 sameFamily: otherFamily face: otherFace style: otherStyle size: otherSize unit: otherSizeUnit pixelSize: otherPixelSize encoding: otherEncoding |
978 (family = otherFamily) ifFalse:[ ^ false ]. |
986 (family = otherFamily) ifFalse:[ ^ false ]. |
979 (face = otherFace) ifFalse:[ ^ false ]. |
987 (face = otherFace) ifFalse:[ ^ false ]. |
980 ((style = otherStyle) |
988 ((style = otherStyle) |
1560 ! |
1568 ! |
1561 |
1569 |
1562 size |
1570 size |
1563 "return the size, a number" |
1571 "return the size, a number" |
1564 |
1572 |
|
1573 size isNil ifTrue:[ ^ self class defaultSize ]. |
1565 ^ size |
1574 ^ size |
|
1575 |
|
1576 "Modified: / 20-06-2022 / 09:58:36 / Patrik Svestka <patrik.svestka@gmail.com>" |
1566 ! |
1577 ! |
1567 |
1578 |
1568 species |
1579 species |
1569 ^ Font |
1580 ^ Font |
1570 ! |
1581 ! |
1820 ^ '$Header$' |
1831 ^ '$Header$' |
1821 ! |
1832 ! |
1822 |
1833 |
1823 version_CVS |
1834 version_CVS |
1824 ^ '$Header$' |
1835 ^ '$Header$' |
|
1836 ! |
|
1837 |
|
1838 version_HG |
|
1839 |
|
1840 ^ '$Changeset: <not expanded> $' |
1825 ! ! |
1841 ! ! |
1826 |
1842 |
1827 |
1843 |
1828 FontDescription initialize! |
1844 FontDescription initialize! |