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 1343 405223afdc32
parent 1319 e7139ef2e8af
child 1367 c91058e8736a 
--- a/display.rc	Sat Mar 01 01:36:04 2014 +0100
+++ b/display.rc	Sat Mar 01 01:36:56 2014 +0100
@@ -16,168 +16,16 @@
  *"
 !
 "*
- * define extensions for image files (i.e. extension-to-readerClass
- * mappings). Some of the readers are autoloaded (see patches file).
- * Moved this from code to here (from Image-class), for more flexibility
- * actually since this is not display- but host specific (naming conventions)
- * it should be moved into the host.rc or h_xxx.rc file
- *
- * Some readers are optional and therefore, only installed if the
- * corresponding Smalltalk class is nonNil; not accessing it as global,
- * but via a Smalltalk>>at: message - this avoids warning messages
- * during startup, if classes are missing and the globals are undefined.
+ * to define extensions for image files (i.e. extension-to-readerClass mappings).
+ * You can define your own (and additional) readers below
  *"
 |rdr|
 
-"/ XXX - almost obsolete - should go into MIMETypes class.
 MIMETypes notNil ifTrue:[
-    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 ...
-    "/ '.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.
-    ].
-
-    "/ 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:'image/x-MS-ico'  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:#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:#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:#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:#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:#IrisRGBReader ifAbsent:nil.
-    rdr notNil ifTrue:[
-	MIMETypes defineImageType:'image/x-rgb' suffix:'rgb' reader:rdr.
-    ].
-
-    "/ experimanetal and not yet finished / delivered
-
-    "/ 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:#CMURasterReader ifAbsent:nil.
+    "/ rdr := Smalltalk at:#XXXReader ifAbsent:nil.
     "/ rdr notNil ifTrue:[
-    "/     MIMETypes defineImageType:'image/x-cmu-raster' suffix:'ras' reader:rdr.
-    "/ ].
-
-    "/ movie formats - experimanetal and not yet complete / finished / delivered
-
-    "/ 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:#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:#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.
+    "/    MIMETypes defineImageType:'video/x-XXX' suffix:'XXX' reader:rdr.
     "/ ].
 ].
 !
@@ -303,9 +151,8 @@
     "
     display notNil ifTrue:[
 	"
-	 if, in your organization, all displays are of the
-	 same type,
-	 use something like:
+	 if, in your organization, all displays are of the same type,
+	 you can use something like:
 	"
 "/        OperatingSystem getDomainName = '<yourDomain>.de' ifTrue:[
 "/            displayType := 'myDisplayType'
@@ -317,15 +164,6 @@
 	 use something like:
 	 (take the exept code below as a guide ...)
 	"
-"/        (display startsWith:'slsv') ifTrue:[
-"/            "all those machines at SEL are suns"
-"/            displayType := 'sun'
-"/        ].
-"/        (display startsWith:'frxt') ifTrue:[
-"/            "all those machines at AEG are xterminals"
-"/            displayType := 'xterminal'
-"/        ].
-"/
 "/        OperatingSystem getDomainName = 'exept.de' ifTrue:[
 "/            (display startsWith:'clam') ifTrue:[
 "/                displayType := 'next'
@@ -491,7 +329,6 @@
 
 View defaultStyle isNil ifTrue:[
     style := #mswindowsVista.
-"/    style := #mswindowsXP.
 "/    type := OperatingSystem getSystemType.
 "/    type = 'next' ifTrue:[
 "/      style := #next
@@ -503,8 +340,8 @@
 "/      style := #os2
 "/    ].
 "/    type = 'win32' ifTrue:[
-"/      (OperatingSystem isVistaLike) ifTrue:[
-"/          style := #mswindowsVista
+"/      (OperatingSystem isVistaLike) ifFalse:[
+"/          style := #mswindowsXP.
 "/      ].
 "/    ].
     View defaultStyle:style.
hg/stx-projects-smalltalk