equal
deleted
inserted
replaced
855 #'application/x-ms-reader' ) |
855 #'application/x-ms-reader' ) |
856 ( 'WALTOP' |
856 ( 'WALTOP' |
857 #'application/x-waltop-digital-notepad' ) |
857 #'application/x-waltop-digital-notepad' ) |
858 ('PK' |
858 ('PK' |
859 #'application/x-zip-compressed') |
859 #'application/x-zip-compressed') |
|
860 ('<?xml' |
|
861 #'text/xml') |
860 ) pairsDo:[:pattern :what | |
862 ) pairsDo:[:pattern :what | |
861 |patternString| |
863 |patternString| |
862 |
864 |
863 patternString := pattern asString. |
865 patternString := pattern asString. |
864 (buffer startsWith:patternString) ifTrue:[ |
866 (buffer startsWith:patternString) ifTrue:[ |
873 ('%PDF-' #'application/pdf') |
875 ('%PDF-' #'application/pdf') |
874 ('#!! /bin/sh' #'application/x-sh') |
876 ('#!! /bin/sh' #'application/x-sh') |
875 ('#!!/bin/sh' #'application/x-sh') |
877 ('#!!/bin/sh' #'application/x-sh') |
876 "/ ('#!! /bin/bash' 'application/x-bash') |
878 "/ ('#!! /bin/bash' 'application/x-bash') |
877 "/ ('#!!/bin/bash' 'application/x-bash') |
879 "/ ('#!!/bin/bash' 'application/x-bash') |
878 ('<?xml version=' #'text/xml') |
880 |
879 |
881 ('---- encoding: ' #'application/x-smalltalk-source') |
|
882 ('---- timestamp ' #'application/x-smalltalk-source') |
880 ('from dolphin' #'application/x-smalltalk-source') |
883 ('from dolphin' #'application/x-smalltalk-source') |
881 ('from visualworks' #'application/x-smalltalk-source') |
884 ('from visualworks' #'application/x-smalltalk-source') |
882 ('categoriesforclass' #'application/x-smalltalk-source') |
885 ('categoriesforclass' #'application/x-smalltalk-source') |
883 ('methodsfor!!' #'application/x-smalltalk-source') |
886 ('methodsfor!!' #'application/x-smalltalk-source') |
884 ('subclass:' #'application/x-smalltalk-source') |
887 ('subclass:' #'application/x-smalltalk-source') |
1337 ! ! |
1340 ! ! |
1338 |
1341 |
1339 !MIMETypes class methodsFor:'documentation'! |
1342 !MIMETypes class methodsFor:'documentation'! |
1340 |
1343 |
1341 version |
1344 version |
1342 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.126 2013-03-12 17:17:27 stefan Exp $' |
1345 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.127 2013-04-02 18:10:32 cg Exp $' |
1343 ! |
1346 ! |
1344 |
1347 |
1345 version_CVS |
1348 version_CVS |
1346 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.126 2013-03-12 17:17:27 stefan Exp $' |
1349 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.127 2013-04-02 18:10:32 cg Exp $' |
1347 ! ! |
1350 ! ! |
1348 |
1351 |
1349 |
1352 |
1350 MIMETypes initialize! |
1353 MIMETypes initialize! |