# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 904227802 -7200
# Node ID 2e757f2d02326fc978ca721a5a6df66cdab77f17
# Parent  3e89b8413529dc891f82f878cb505c772dd17d05
comments

diff -r 3e89b8413529 -r 2e757f2d0232 display.rc
--- a/display.rc	Fri Aug 14 11:15:02 1998 +0200
+++ b/display.rc	Thu Aug 27 16:23:22 1998 +0200
@@ -1,35 +1,38 @@
 "*
  * $Header$
  *
- * ST/X startup configuration file:
+ * ST/X startup display configuration file:
  *
  * DONT add site specific things here - use your own d_xxx.rc file instead
  * where xxx stands for your displays hostname(s)
  *
  * display related configuration:
- *   first do some common setup, then try to find a
+ *   first do some common setup, then try to figure out
+ *   the kind of display and find a
  *   display specific initialization file.
  *"
 
 "*
  * mouse-button translation
  *
- * (allowed are #select #menu and #paste)
+ * (currently, allowed are 1 2 and #paste)
+ * 1      - button1; used to select (i.e. left button)
+ * 2      - button2; pops up a menu (i.e. middle button)
+ * #paste - paste the clipBoard contents
  *
  * the following line puts paste onto the right button (as in xterm):
  *"
-"/ Screen buttonTranslation:#(select #menu #paste).
+Screen buttonTranslation:#(1 2 #paste).
 
 "*
  * while that one puts the pop-up menu both on the middle and right buttons:
  *"
-"/ Screen buttonTranslation:#(select #menu #menu).
 Screen buttonTranslation:#(1 2 2).
 
 "*
  * lefthanders can use:
  *"
-"/ Screen buttonTranslation:#(#menu #menu #select).
+"/ Screen buttonTranslation:#(2 2 1).
 !
 
 "*
@@ -138,7 +141,7 @@
 	MIMETypes defineImageType:'image/x-rgb' suffix:'rgb' reader:rdr.
     ].
 
-    "/ experimanetal and not yet delivered
+    "/ experimanetal and not yet finished / delivered
 
     "/ rdr := Smalltalk at:#PNGReader ifAbsent:nil.
     "/ rdr notNil ifTrue:[
@@ -155,7 +158,7 @@
     "/     MIMETypes defineImageType:'image/x-cmu-raster' suffix:'ras' reader:rdr.
     "/ ].
 
-    "/ movie formats - experimanetal and not yet complete
+    "/ movie formats - experimanetal and not yet complete / finished / delivered
 
     "/ rdr := Smalltalk at:#FLIReader ifAbsent:nil.
     "/ rdr notNil ifTrue:[
@@ -282,25 +285,20 @@
 	     just an example - stuff can also be hardwired here ...
 	    "
 	    display notNil ifTrue:[
-		(display startsWith:'clam') ifTrue:[
-		    displayType := 'next'
-		].
-		(display startsWith:'porty') ifTrue:[
-		    displayType := 'portable'
-		].
-		(display startsWith:'blue') ifTrue:[
-		    displayType := 'iris'
-		].
-		(display startsWith:'sun') ifTrue:[
-		    displayType := 'sun'
-		].
-		(display startsWith:'hp') ifTrue:[
-		    displayType := 'hpux'
-		].
+		"
+		 if, in your organization, all displays are of the
+		 same type,
+		 use something like:
+		"
+"/                OperatingSystem getDomainName = '<yourDomain>.de' ifTrue:[
+"/                      displayType := 'myDisplayType'
+"/                  ].
+
 		"
 		 if, in your organization, the display type can
 		 be deduced from the hostname,
 		 use something like:
+		 (take the exept code below as a guide ...)
 		"
 "/                (display startsWith:'slsv') ifTrue:[
 "/                    "all those machines at SEL are suns"
@@ -314,6 +312,27 @@
 "/                    "all those machines at AEG are linux boxes with olwm"
 "/                    displayType := 'linux_olwm'
 "/                ].
+
+		OperatingSystem getDomainName = 'exept.de' ifTrue:[
+		    (display startsWith:'clam') ifTrue:[
+			displayType := 'next'
+		    ].
+		    (display startsWith:'porty') ifTrue:[
+			displayType := 'portable'
+		    ].
+		    (display startsWith:'blue') ifTrue:[
+			displayType := 'iris'
+		    ].
+		    (display startsWith:'sun') ifTrue:[
+			displayType := 'sun'
+		    ].
+		    (display startsWith:'sol') ifTrue:[
+			displayType := 'sun'
+		    ].
+		    (display startsWith:'hp') ifTrue:[
+			displayType := 'hpux'
+		    ].
+		].
 	    ].
 	].
     ].
@@ -446,6 +465,9 @@
 	    View defaultStyle:#'mswindows' 
 	]
     ].
+
+    "/ final fallBack ...
+
     View defaultStyle isNil ifTrue:[
 	Display hasGreyscales ifTrue:[
 	    View defaultStyle:#iris