equal
deleted
inserted
replaced
5915 |
5915 |
5916 encodingOf:aFontId |
5916 encodingOf:aFontId |
5917 "the fonts encoding - if the font does not provide that info, |
5917 "the fonts encoding - if the font does not provide that info, |
5918 return nil (and assume #ascii, which is a subset of #iso8859)." |
5918 return nil (and assume #ascii, which is a subset of #iso8859)." |
5919 |
5919 |
5920 |info a| |
5920 |info reg enc coll| |
5921 |
5921 |
5922 info := self fontProperties:#(#'CHARSET_REGISTRY' #'CHARSET_ENCODING' |
5922 info := self fontProperties:#(#'CHARSET_REGISTRY' |
5923 #'CHARSET_COLLECTIONS') |
5923 #'CHARSET_ENCODING' |
5924 |
5924 #'CHARSET_COLLECTIONS' |
5925 of:aFontId. |
5925 ) |
|
5926 |
|
5927 of:aFontId. |
|
5928 |
|
5929 reg := info at:1. |
|
5930 enc := info at:2. |
|
5931 coll := info at:3. |
5926 |
5932 |
5927 ^ self |
5933 ^ self |
5928 extractEncodingFromRegistry:((a := info at:1) notNil ifTrue:[self atomName:a] ifFalse:[]) |
5934 extractEncodingFromRegistry:(reg notNil ifTrue:[self atomName:reg] ifFalse:[nil]) |
5929 encoding:((a := info at:2) notNil ifTrue:[self atomName:a] ifFalse:[]) |
5935 encoding:(enc notNil ifTrue:[self atomName:enc] ifFalse:[nil]) |
5930 charSetCollections:((a := info at:3) notNil ifTrue:[self atomName:a] ifFalse:[]) |
5936 charSetCollections:(coll notNil ifTrue:[self atomName:coll] ifFalse:[nil]) |
5931 |
5937 |
5932 " |
5938 " |
5933 Screen current encodingOf:Screen current getDefaultFont |
5939 Screen current encodingOf:Screen current getDefaultFont |
5934 " |
5940 " |
5935 ! |
5941 ! |
6065 ]. |
6071 ]. |
6066 |
6072 |
6067 ^ propValues |
6073 ^ propValues |
6068 |
6074 |
6069 " |
6075 " |
6070 Screen current fontProperties:#(#'PIXEL_SIZE' #'POINT_SIZE' #'RESOLUTION' notExistant) of:Screen current getDefaultFont |
6076 Screen current fontProperties:#(#'PIXEL_SIZE' #'POINT_SIZE' #'RESOLUTION' notExistant) of:Screen current getDefaultFont |
6071 " |
6077 " |
6072 ! |
6078 ! |
6073 |
6079 |
6074 fontPropertiesOf:aFontId |
6080 fontPropertiesOf:aFontId |
6075 "Answer an array with all the properties of a font. |
6081 "Answer an array with all the properties of a font. |
11133 ! ! |
11139 ! ! |
11134 |
11140 |
11135 !XWorkstation class methodsFor:'documentation'! |
11141 !XWorkstation class methodsFor:'documentation'! |
11136 |
11142 |
11137 version |
11143 version |
11138 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.439 2004-02-03 23:02:36 cg Exp $' |
11144 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.440 2004-02-03 23:27:49 cg Exp $' |
11139 ! ! |
11145 ! ! |
11140 |
11146 |
11141 XWorkstation initialize! |
11147 XWorkstation initialize! |