equal
deleted
inserted
replaced
93 "Modified: 30.6.1997 / 21:58:47 / cg" |
93 "Modified: 30.6.1997 / 21:58:47 / cg" |
94 ! ! |
94 ! ! |
95 |
95 |
96 !MIMETypes class methodsFor:'accessing'! |
96 !MIMETypes class methodsFor:'accessing'! |
97 |
97 |
|
98 defineImageType:mimeType suffix:aSuffix reader:aReaderClass |
|
99 "register an image reader." |
|
100 |
|
101 aSuffix notNil ifTrue:[ |
|
102 self imageReaderForSuffix:aSuffix put:aReaderClass. |
|
103 ]. |
|
104 |
|
105 mimeType notNil ifTrue:[ |
|
106 self imageReaderForType:mimeType put:aReaderClass |
|
107 ]. |
|
108 |
|
109 (aSuffix notNil and:[mimeType notNil]) ifTrue:[ |
|
110 self mimeTypeForSuffix:aSuffix put:mimeType |
|
111 ]. |
|
112 ! |
|
113 |
98 fileSuffixToImageReaderMapping |
114 fileSuffixToImageReaderMapping |
99 ^ FileSuffixToImageReaderClassMapping ? #() |
115 ^ FileSuffixToImageReaderClassMapping ? #() |
100 |
116 |
101 "Modified: 30.6.1997 / 22:06:11 / cg" |
117 "Modified: 30.6.1997 / 22:06:11 / cg" |
102 ! |
118 ! |
183 ! ! |
199 ! ! |
184 |
200 |
185 !MIMETypes class methodsFor:'documentation'! |
201 !MIMETypes class methodsFor:'documentation'! |
186 |
202 |
187 version |
203 version |
188 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.3 1997-06-30 20:35:35 cg Exp $' |
204 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.4 1997-06-30 20:55:58 cg Exp $' |
189 ! ! |
205 ! ! |
190 MIMETypes initialize! |
206 MIMETypes initialize! |