--- a/MIMETypes.st Mon Jun 30 23:28:12 1997 +0200
+++ b/MIMETypes.st Tue Jul 01 00:06:33 1997 +0200
@@ -63,34 +63,36 @@
FileSuffixToTypeMapping at:'gif' put:'image/gif'.
FileSuffixToTypeMapping at:'tif' put:'image/tiff'.
+ FileSuffixToTypeMapping at:'htm' put:'text/html'.
+ FileSuffixToTypeMapping at:'html' put:'text/html'.
+ FileSuffixToTypeMapping at:'ps' put:'application/postscript'.
+
FileSuffixToImageReaderClassMapping isNil ifTrue:[FileSuffixToImageReaderClassMapping := Dictionary new].
FileSuffixToImageReaderClassMapping at:'jpg' put:JPEGReader.
FileSuffixToImageReaderClassMapping at:'gif' put:GIFReader.
FileSuffixToImageReaderClassMapping at:'tif' put:TIFFReader.
CharSetToFontMapping isNil ifTrue:[CharSetToFontMapping := Dictionary new].
- CharSetToFontMapping at:'iso2022-jp' put:'jis'.
- CharSetToFontMapping at:'euc-jp' put:'jis'.
- CharSetToFontMapping at:'shift-jis' put:'jis'.
- CharSetToFontMapping at:'sjis' put:'jis'.
- CharSetToFontMapping at:'jis7' put:'jis'.
- CharSetToFontMapping at:'jis8' put:'jis'.
+ CharSetToFontMapping at:'iso2022-jp' put:'jis*0208*'.
+ CharSetToFontMapping at:'x-euc-jp' put:'jis*0208*'.
+ CharSetToFontMapping at:'x-shift-jis' put:'jis*0208*'.
+ CharSetToFontMapping at:'x-sjis' put:'jis*0208*'.
+ CharSetToFontMapping at:'x-jis7' put:'jis*0208*'.
- CharSetToFontMapping at:'iso2022-cn' put:'big5'.
- CharSetToFontMapping at:'euc-cn' put:'big5'.
- CharSetToFontMapping at:'hz' put:'big5'.
+ CharSetToFontMapping at:'big5' put:'big5*'.
- CharSetToFontMapping at:'gb2312' put:'gb'.
- CharSetToFontMapping at:'euc-gb' put:'gb'.
+ CharSetToFontMapping at:'gb2312' put:'gb*'.
+ CharSetToFontMapping at:'hz-gb-2312' put:'gb*'.
+ CharSetToFontMapping at:'x-gbk' put:'gb*'.
- CharSetToFontMapping at:'iso2022-kr' put:'ksc'.
- CharSetToFontMapping at:'euc-kr' put:'ksc'.
+ CharSetToFontMapping at:'iso2022-kr' put:'ksc*'.
+ CharSetToFontMapping at:'x-euc-kr' put:'ksc*'.
"
self initialize
"
- "Modified: 30.6.1997 / 23:28:04 / cg"
+ "Modified: 1.7.1997 / 00:03:32 / cg"
! !
!MIMETypes class methodsFor:'accessing'!
@@ -212,6 +214,6 @@
!MIMETypes class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.6 1997-06-30 21:28:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.7 1997-06-30 22:06:33 cg Exp $'
! !
MIMETypes initialize!