equal
deleted
inserted
replaced
753 ^ type |
753 ^ type |
754 |
754 |
755 " |
755 " |
756 self mimeTypeForSuffix:'gif' |
756 self mimeTypeForSuffix:'gif' |
757 self mimeTypeForSuffix:'rpm' |
757 self mimeTypeForSuffix:'rpm' |
758 " |
758 self mimeTypeForSuffix:'zip' |
759 |
759 " |
760 "Created: / 30.6.1997 / 21:55:51 / cg" |
760 |
761 "Modified: / 23.12.1999 / 22:30:55 / cg" |
761 "Created: / 30-06-1997 / 21:55:51 / cg" |
|
762 "Modified: / 14-02-2011 / 17:14:34 / cg" |
762 ! |
763 ! |
763 |
764 |
764 mimeTypeForSuffix:suffix put:mimeType |
765 mimeTypeForSuffix:suffix put:mimeType |
765 "register a mime type for a file suffix" |
766 "register a mime type for a file suffix" |
766 |
767 |
844 ('#!! /bin/sh' #'application/x-sh') |
845 ('#!! /bin/sh' #'application/x-sh') |
845 ('#!!/bin/sh' #'application/x-sh') |
846 ('#!!/bin/sh' #'application/x-sh') |
846 "/ ('#!! /bin/bash' 'application/x-bash') |
847 "/ ('#!! /bin/bash' 'application/x-bash') |
847 "/ ('#!!/bin/bash' 'application/x-bash') |
848 "/ ('#!!/bin/bash' 'application/x-bash') |
848 ('<?xml version=' #'text/xml') |
849 ('<?xml version=' #'text/xml') |
|
850 ('PK' #'application/x-zip-compressed') |
849 |
851 |
850 ('from dolphin' #'application/x-smalltalk-source') |
852 ('from dolphin' #'application/x-smalltalk-source') |
851 ('from visualworks' #'application/x-smalltalk-source') |
853 ('from visualworks' #'application/x-smalltalk-source') |
852 ('categoriesforclass' #'application/x-smalltalk-source') |
854 ('categoriesforclass' #'application/x-smalltalk-source') |
853 ('methodsfor!!' #'application/x-smalltalk-source') |
855 ('methodsfor!!' #'application/x-smalltalk-source') |
881 |
883 |
882 size == 0 ifTrue:[ |
884 size == 0 ifTrue:[ |
883 ^ MIMEType fromString:'text/plain' |
885 ^ MIMEType fromString:'text/plain' |
884 ]. |
886 ]. |
885 ^ nil |
887 ^ nil |
|
888 |
|
889 "Modified: / 14-02-2011 / 17:14:42 / cg" |
886 ! |
890 ! |
887 |
891 |
888 suffixForMimeType:mimeType |
892 suffixForMimeType:mimeType |
889 "given a file suffix, return the mime-type" |
893 "given a file suffix, return the mime-type" |
890 |
894 |
1303 ! ! |
1307 ! ! |
1304 |
1308 |
1305 !MIMETypes class methodsFor:'documentation'! |
1309 !MIMETypes class methodsFor:'documentation'! |
1306 |
1310 |
1307 version |
1311 version |
1308 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.109 2011-02-03 13:13:17 sr Exp $' |
1312 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.110 2011-02-14 16:20:18 cg Exp $' |
1309 ! |
1313 ! |
1310 |
1314 |
1311 version_CVS |
1315 version_CVS |
1312 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.109 2011-02-03 13:13:17 sr Exp $' |
1316 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.110 2011-02-14 16:20:18 cg Exp $' |
1313 ! ! |
1317 ! ! |
1314 |
1318 |
1315 MIMETypes initialize! |
1319 MIMETypes initialize! |
1316 MIMETypes::MIMEType initialize! |
1320 MIMETypes::MIMEType initialize! |