diff -r e44e550199c5 -r d595cb02a5b9 display.rc --- a/display.rc Mon Jun 30 23:05:49 1997 +0200 +++ b/display.rc Mon Jun 30 23:08:18 1997 +0200 @@ -44,158 +44,159 @@ * but via a SMalltalk>>at: message - this avoids warning messages * during startup, if classes are missing and the globals are undefined. *" -|formats rdr| +|rdr| + +MIMETypes notNil ifTrue:[ -formats := Image fileFormats. -rdr := Smalltalk at:#XBMReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/x-xbitmap' suffix:'xbm' reader:rdr. - MIMETypes defineImageType:nil suffix:'bm' reader:rdr. -]. -rdr := Smalltalk at:#TIFFReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/tiff' suffix:'tif' reader:rdr. - MIMETypes defineImageType:nil suffix:'tiff' reader:rdr. -]. -rdr := Smalltalk at:#GIFReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/gif' suffix:'gif' reader:rdr -]. + rdr := Smalltalk at:#XBMReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/x-xbitmap' suffix:'xbm' reader:rdr. + MIMETypes defineImageType:nil suffix:'bm' reader:rdr. + ]. + rdr := Smalltalk at:#TIFFReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/tiff' suffix:'tif' reader:rdr. + MIMETypes defineImageType:nil suffix:'tiff' reader:rdr. + ]. + rdr := Smalltalk at:#GIFReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/gif' suffix:'gif' reader:rdr + ]. -"/ still to come ... -"/ formats at:'.img' put:IMGReader. -"/ formats at:'.IMG' put:IMGReader. -"/ formats at:'.mac' put:MacPaintReader. + "/ still to come ... + "/ '.img' put:IMGReader. + "/ '.IMG' put:IMGReader. + "/ '.mac' put:MacPaintReader. -rdr := Smalltalk at:#SunRasterReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:nil suffix:'im8' reader:rdr - MIMETypes defineImageType:nil suffix:'icon' reader:rdr -]. + rdr := Smalltalk at:#SunRasterReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:nil suffix:'im8' reader:rdr + MIMETypes defineImageType:nil suffix:'icon' reader:rdr + ]. -"/ still to come ... -"/ formats at:'.g3' put:G3FileReader. + "/ still to come ... + "/ '.g3' put:G3FileReader. -rdr := Smalltalk at:#WindowsIconReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/x-MS-bmp' suffix:'bmp' reader:rdr. - MIMETypes defineImageType:nil suffix:'ico' reader:rdr. -]. + rdr := Smalltalk at:#WindowsIconReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/x-MS-bmp' suffix:'bmp' reader:rdr. + MIMETypes defineImageType:nil suffix:'ico' reader:rdr. + ]. -rdr := Smalltalk at:#JPEGReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/jpeg' suffix:'jpg' reader:rdr. - MIMETypes defineImageType:nil suffix:'jpeg' reader:rdr. -]. + rdr := Smalltalk at:#JPEGReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/jpeg' suffix:'jpg' reader:rdr. + MIMETypes defineImageType:nil suffix:'jpeg' reader:rdr. + ]. -rdr := Smalltalk at:#PBMReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/x-portable-pixmap' suffix:'ppm' reader:rdr. - MIMETypes defineImageType:'image/x-portable-bitmap' suffix:'pbm' reader:rdr. - MIMETypes defineImageType:'image/x-portable-graymap' suffix:'pgm' reader:rdr. - MIMETypes defineImageType:'image/x-portable-anymap' suffix:'pnm' reader:rdr. -]. + rdr := Smalltalk at:#PBMReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/x-portable-pixmap' suffix:'ppm' reader:rdr. + MIMETypes defineImageType:'image/x-portable-bitmap' suffix:'pbm' reader:rdr. + MIMETypes defineImageType:'image/x-portable-graymap' suffix:'pgm' reader:rdr. + MIMETypes defineImageType:'image/x-portable-anymap' suffix:'pnm' reader:rdr. + ]. -rdr := Smalltalk at:#ST80FormReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:nil suffix:'form' reader:rdr. -]. + rdr := Smalltalk at:#ST80FormReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:nil suffix:'form' reader:rdr. + ]. -rdr := Smalltalk at:#FaceReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:nil suffix:'face' reader:rdr. -]. + rdr := Smalltalk at:#FaceReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:nil suffix:'face' reader:rdr. + ]. -rdr := Smalltalk at:#XPMReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/x-xpixmap' suffix:'xpm' reader:rdr. - MIMETypes defineImageType:nil suffix:'pm' reader:rdr. -]. + rdr := Smalltalk at:#XPMReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/x-xpixmap' suffix:'xpm' reader:rdr. + MIMETypes defineImageType:nil suffix:'pm' reader:rdr. + ]. -rdr := Smalltalk at:#PCXReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/x-pcx' suffix:'pcx' reader:rdr. -]. + rdr := Smalltalk at:#PCXReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/x-pcx' suffix:'pcx' reader:rdr. + ]. -rdr := Smalltalk at:#TargaReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/x-targa' suffix:'tga' reader:rdr. -]. + rdr := Smalltalk at:#TargaReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/x-targa' suffix:'tga' reader:rdr. + ]. -rdr := Smalltalk at:#XWDReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/x-xwindowdump' suffix:'xwd' reader:rdr. -]. + rdr := Smalltalk at:#XWDReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/x-xwindowdump' suffix:'xwd' reader:rdr. + ]. -rdr := Smalltalk at:#BlitImageReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:nil suffix:'48x48x1' reader:rdr. -]. + rdr := Smalltalk at:#BlitImageReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:nil suffix:'48x48x1' reader:rdr. + ]. -rdr := Smalltalk at:#IrisRGBReader ifAbsent:nil. -rdr notNil ifTrue:[ - MIMETypes defineImageType:'image/x-rgb' suffix:'rgb' reader:rdr. -]. + rdr := Smalltalk at:#IrisRGBReader ifAbsent:nil. + rdr notNil ifTrue:[ + MIMETypes defineImageType:'image/x-rgb' suffix:'rgb' reader:rdr. + ]. -"/ experimanetal and not yet delivered + "/ experimanetal and not yet delivered -"/ rdr := Smalltalk at:#PNGReader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'image/x-png' suffix:'png' reader:rdr. -"/ ]. + "/ rdr := Smalltalk at:#PNGReader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'image/x-png' suffix:'png' reader:rdr. + "/ ]. -"/ rdr := Smalltalk at:#PCDReader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'image/x-photo-cd' suffix:'pcd' reader:rdr. -"/ ]. + "/ rdr := Smalltalk at:#PCDReader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'image/x-photo-cd' suffix:'pcd' reader:rdr. + "/ ]. -"/ rdr := Smalltalk at:#CMURasterReader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'image/x-cmu-raster' suffix:'ras' reader:rdr. -"/ ]. + "/ rdr := Smalltalk at:#CMURasterReader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'image/x-cmu-raster' suffix:'ras' reader:rdr. + "/ ]. -"/ movie formats - experimanetal and not yet complete + "/ movie formats - experimanetal and not yet complete -"/ rdr := Smalltalk at:#FLIReader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'video/x-fli' suffix:'fli' reader:rdr. -"/ ]. + "/ rdr := Smalltalk at:#FLIReader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'video/x-fli' suffix:'fli' reader:rdr. + "/ ]. -"/ rdr := Smalltalk at:#AVIReader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'video/x-msvideo' suffix:'avi' reader:rdr. -"/ ]. + "/ rdr := Smalltalk at:#AVIReader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'video/x-msvideo' suffix:'avi' reader:rdr. + "/ ]. -"/ rdr := Smalltalk at:#QuickTimeReader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'video/quicktime' suffix:'qt' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'mov' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'moov' reader:rdr. -"/ ]. + "/ rdr := Smalltalk at:#QuickTimeReader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'video/quicktime' suffix:'qt' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'mov' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'moov' reader:rdr. + "/ ]. -"/ rdr := Smalltalk at:#MPEG2Reader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'video/x-mpeg2' suffix:'mpg2' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'mpv2' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'mp2v' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'mp2' reader:rdr. -"/ ]. + "/ rdr := Smalltalk at:#MPEG2Reader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'video/x-mpeg2' suffix:'mpg2' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'mpv2' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'mp2v' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'mp2' reader:rdr. + "/ ]. -"/ rdr := Smalltalk at:#MPEGReader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'video/mpeg' suffix:'mpg' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'mpeg' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'mpe' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'mpv' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'vbs' reader:rdr. -"/ MIMETypes defineImageType:nil suffix:'mpegv' reader:rdr. -"/ ]. + "/ rdr := Smalltalk at:#MPEGReader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'video/mpeg' suffix:'mpg' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'mpeg' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'mpe' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'mpv' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'vbs' reader:rdr. + "/ MIMETypes defineImageType:nil suffix:'mpegv' reader:rdr. + "/ ]. -"/ rdr := Smalltalk at:#SGIMovieReader ifAbsent:nil. -"/ rdr notNil ifTrue:[ -"/ MIMETypes defineImageType:'video/x-sgi-movie' suffix:'movie' reader:rdr. -"/ ]. - + "/ rdr := Smalltalk at:#SGIMovieReader ifAbsent:nil. + "/ rdr notNil ifTrue:[ + "/ MIMETypes defineImageType:'video/x-sgi-movie' suffix:'movie' reader:rdr. + "/ ]. +] ! "*