equal
deleted
inserted
replaced
520 ]. |
520 ]. |
521 |
521 |
522 ^ type |
522 ^ type |
523 |
523 |
524 " |
524 " |
525 self mimeTypeForFilename:'foo.gz' |
525 self mimeTypeForFilename:'foo.gif' |
526 self mimeTypeForFilename:'foo.tar' |
526 self mimeTypeForFilename:'foo.tar' |
527 self mimeTypeForFilename:'foo.tgz' |
527 self mimeTypeForFilename:'foo.tgz' |
528 self mimeTypeForFilename:'foo.tar.gz' |
528 self mimeTypeForFilename:'foo.tar.gz' |
529 " |
529 " |
530 ! |
530 ! |
560 ]. |
560 ]. |
561 |
561 |
562 type == #unknown ifTrue:[ |
562 type == #unknown ifTrue:[ |
563 type := nil. |
563 type := nil. |
564 ]. |
564 ]. |
565 LastSuffix := suffix. |
565 type notNil ifTrue:[ |
566 LastType := type. |
566 LastSuffix := suffix. |
567 ^ type |
567 LastType := MIMEType fromString:type. |
568 |
568 ^ LastType |
569 " |
569 ]. |
570 self mimeTypeForSuffix:'xml' |
570 |
|
571 " |
|
572 self mimeTypeForSuffix:'gif' |
571 " |
573 " |
572 |
574 |
573 "Created: / 30.6.1997 / 21:55:51 / cg" |
575 "Created: / 30.6.1997 / 21:55:51 / cg" |
574 "Modified: / 23.12.1999 / 22:30:55 / cg" |
576 "Modified: / 23.12.1999 / 22:30:55 / cg" |
575 ! |
577 ! |
838 ! ! |
840 ! ! |
839 |
841 |
840 !MIMETypes class methodsFor:'documentation'! |
842 !MIMETypes class methodsFor:'documentation'! |
841 |
843 |
842 version |
844 version |
843 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.63 2003-10-29 08:31:15 penk Exp $' |
845 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.64 2003-10-30 14:48:50 penk Exp $' |
844 ! ! |
846 ! ! |
845 |
847 |
846 MIMETypes initialize! |
848 MIMETypes initialize! |
847 MIMETypes::MIMEType initialize! |
849 MIMETypes::MIMEType initialize! |