equal
deleted
inserted
replaced
913 |
913 |
914 = aFont |
914 = aFont |
915 "two fonts are considered equal, if the font-name components are; |
915 "two fonts are considered equal, if the font-name components are; |
916 independent of the device, the font is on" |
916 independent of the device, the font is on" |
917 |
917 |
918 (aFont species == self species) ifTrue:[ |
918 (aFont species == self species) ifFalse:[^ false]. |
919 (size == aFont size) ifTrue:[ |
919 (size == aFont size) ifFalse:[^ false]. |
920 (family = aFont family) ifTrue:[ |
920 (family = aFont family) ifFalse:[^ false]. |
921 (face = aFont face) ifTrue:[ |
921 (face = aFont face) ifFalse:[^ false]. |
922 (style = aFont style) ifTrue:[ |
922 (style = aFont style) ifFalse:[^ false]. |
923 (encoding == aFont encoding) ifTrue:[ |
923 (encoding == aFont encoding) ifFalse:[^ false]. |
924 (sizeUnit == aFont sizeUnit) ifTrue:[ |
924 (sizeUnit == aFont sizeUnit) ifFalse:[^ false]. |
925 (pixelSize == aFont pixelSizeOrNil) ifTrue:[ |
925 (pixelSize == aFont pixelSizeOrNil) ifFalse:[^ false]. |
926 ^ true |
926 ^ true |
927 ] |
|
928 ] |
|
929 ] |
|
930 ] |
|
931 ] |
|
932 ] |
|
933 ] |
|
934 ]. |
|
935 |
|
936 ^ false |
|
937 |
927 |
938 "Modified: / 20-05-2014 / 11:18:31 / gg" |
928 "Modified: / 20-05-2014 / 11:18:31 / gg" |
939 ! |
929 ! |
940 |
930 |
941 hash |
931 hash |
949 "Created: / 19.6.1998 / 04:19:06 / cg" |
939 "Created: / 19.6.1998 / 04:19:06 / cg" |
950 "Modified: / 20.6.1998 / 17:04:00 / cg" |
940 "Modified: / 20.6.1998 / 17:04:00 / cg" |
951 ! |
941 ! |
952 |
942 |
953 sameDeviceFontAs:aFont |
943 sameDeviceFontAs:aFont |
|
944 aFont species == self species ifFalse:[^ false]. |
|
945 |
954 (family = aFont family) ifFalse:[ ^ false ]. |
946 (family = aFont family) ifFalse:[ ^ false ]. |
955 (face = aFont face) ifFalse:[ ^ false ]. |
947 (face = aFont face) ifFalse:[ ^ false ]. |
956 ((style = aFont style) |
948 ((style = aFont style) |
957 or:[ (style = 'italic' and:[aFont style = 'oblique']) |
949 or:[ (style = 'italic' and:[aFont style = 'oblique']) |
958 or:[ style = 'oblique' and:[aFont style = 'italic']]]) ifFalse:[ ^ false ]. |
950 or:[ style = 'oblique' and:[aFont style = 'italic']]]) ifFalse:[ ^ false ]. |
1714 ! ! |
1706 ! ! |
1715 |
1707 |
1716 !FontDescription class methodsFor:'documentation'! |
1708 !FontDescription class methodsFor:'documentation'! |
1717 |
1709 |
1718 version |
1710 version |
1719 ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.95 2014-05-20 09:18:50 sr Exp $' |
1711 ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.96 2014-07-09 02:52:30 cg Exp $' |
1720 ! |
1712 ! |
1721 |
1713 |
1722 version_CVS |
1714 version_CVS |
1723 ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.95 2014-05-20 09:18:50 sr Exp $' |
1715 ^ '$Header: /cvs/stx/stx/libview/FontDescription.st,v 1.96 2014-07-09 02:52:30 cg Exp $' |
1724 ! ! |
1716 ! ! |
1725 |
1717 |
1726 |
1718 |
1727 FontDescription initialize! |
1719 FontDescription initialize! |