Mercurial Mercurial > hg > stx-projects-smalltalk / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
display.rc
changeset 230 d595cb02a5b9
parent 229 e44e550199c5
child 231 9d22d1c7b856 
--- 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.
+    "/ ].
+]
 !
 
 "*
hg/stx-projects-smalltalk