equal
deleted
inserted
replaced
1 "{ Package: 'stx:libview2' }" |
1 "{ Package: 'stx:libview2' }" |
2 |
2 |
3 String variableByteSubclass:#MIMEType |
3 String variableByteSubclass:#MIMEType |
4 instanceVariableNames:'' |
4 instanceVariableNames:'' |
5 classVariableNames:'CachedTypes' |
5 classVariableNames:'CachedTypes' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'System-Documentation' |
7 category:'System-Documentation' |
8 ! |
8 ! |
9 |
9 |
10 |
10 |
11 !MIMEType class methodsFor:'initialization'! |
11 !MIMEType class methodsFor:'initialization'! |
12 |
12 |
38 |
38 |
39 isArchiv |
39 isArchiv |
40 |
40 |
41 |archivTypes| |
41 |archivTypes| |
42 |
42 |
43 mimeType isNil ifTrue:[^ false]. |
43 archivTypes := MIMETypes applicationComprAndArchiveTypeList. |
44 archivTypes := self class applicationComprAndArchiveTypeList. |
|
45 archivTypes pairWiseDo:[: ext : type | |
44 archivTypes pairWiseDo:[: ext : type | |
46 self = type ifTrue:[ ^ true]. |
45 self = type ifTrue:[ ^ true]. |
47 ]. |
46 ]. |
48 ^ false |
47 ^ false |
49 ! |
48 ! |
58 ^ (self startsWith:'image') |
57 ^ (self startsWith:'image') |
59 ! |
58 ! |
60 |
59 |
61 isPdf |
60 isPdf |
62 ^ (self = 'application/pdf') |
61 ^ (self = 'application/pdf') |
|
62 ! |
|
63 |
|
64 isSmalltalkSource |
|
65 |
|
66 ^ (self = 'application/x-smalltalk-source') |
63 ! ! |
67 ! ! |
64 |
68 |
65 !MIMEType class methodsFor:'documentation'! |
69 !MIMEType class methodsFor:'documentation'! |
66 |
70 |
67 version |
71 version |
68 ^ '$Header: /cvs/stx/stx/libview2/Attic/MIMEType.st,v 1.3 2002-09-11 12:52:31 penk Exp $' |
72 ^ '$Header: /cvs/stx/stx/libview2/Attic/MIMEType.st,v 1.4 2002-09-11 15:04:08 penk Exp $' |
69 ! ! |
73 ! ! |
70 MIMEType initialize! |
74 MIMEType initialize! |