equal
deleted
inserted
replaced
58 MIMETypes defineImageType:'image/tiff' suffix:'tif' reader:rdr. |
58 MIMETypes defineImageType:'image/tiff' suffix:'tif' reader:rdr. |
59 MIMETypes defineImageType:nil suffix:'tiff' reader:rdr. |
59 MIMETypes defineImageType:nil suffix:'tiff' reader:rdr. |
60 ]. |
60 ]. |
61 rdr := Smalltalk at:#GIFReader ifAbsent:nil. |
61 rdr := Smalltalk at:#GIFReader ifAbsent:nil. |
62 rdr notNil ifTrue:[ |
62 rdr notNil ifTrue:[ |
63 MIMETypes defineImageType:'image/gif' suffix:'gif' reader:rdr |
63 MIMETypes defineImageType:'image/gif' suffix:'gif' reader:rdr. |
64 ]. |
64 ]. |
65 |
65 |
66 "/ still to come ... |
66 "/ still to come ... |
67 "/ '.img' put:IMGReader. |
67 "/ '.img' put:IMGReader. |
68 "/ '.IMG' put:IMGReader. |
68 "/ '.IMG' put:IMGReader. |
69 "/ '.mac' put:MacPaintReader. |
69 "/ '.mac' put:MacPaintReader. |
70 |
70 |
71 rdr := Smalltalk at:#SunRasterReader ifAbsent:nil. |
71 rdr := Smalltalk at:#SunRasterReader ifAbsent:nil. |
72 rdr notNil ifTrue:[ |
72 rdr notNil ifTrue:[ |
73 MIMETypes defineImageType:nil suffix:'im8' reader:rdr |
73 MIMETypes defineImageType:nil suffix:'im8' reader:rdr. |
74 MIMETypes defineImageType:nil suffix:'icon' reader:rdr |
74 MIMETypes defineImageType:nil suffix:'icon' reader:rdr. |
75 ]. |
75 ]. |
76 |
76 |
77 "/ still to come ... |
77 "/ still to come ... |
78 "/ '.g3' put:G3FileReader. |
78 "/ '.g3' put:G3FileReader. |
79 |
79 |