--- a/display.rc	Fri Mar 31 05:14:52 1995 +0200
+++ b/display.rc	Sun Apr 02 13:48:09 1995 +0200
@@ -183,7 +183,7 @@
  * find out, on what type of display we run
  * (boy, they should have added this to the x-protocol)
  *
- * look for a file named 'd_<displays-hostname>.rc' and file it in
+ * look for a file named 'd_<displayname>.rc' and file it in
  *"
 
 |displayVar display displayType s idx|
@@ -216,8 +216,9 @@
     display isNil ifTrue:[
 	'cannot determine display I am running on' errorPrintNL.
     ] ifFalse:[
-	"if there is a corresponding file ..."
-
+	"
+	 if there is a corresponding file d_<displayName>.rc ...
+	"
 	s := Smalltalk systemFileStreamFor:('d_' , display , '.rc').
 	s notNil ifTrue:[
 	    displayType := display.
@@ -226,7 +227,9 @@
 
 	"otherwise ..."
 	displayType isNil ifTrue:[
-	    "just an example - stuff can also be hardwired here ..."
+	    "
+	     just an example - stuff can also be hardwired here ...
+	    "
 	    display notNil ifTrue:[
 		(display startsWith:'clam') ifTrue:[
 		    displayType := 'next'
@@ -243,10 +246,23 @@
 		(display startsWith:'hp') ifTrue:[
 		    displayType := 'hpux'
 		].
+		"
+		 if, in your organization, the display type can
+		 be deduced from the hostname,
+		 use something like:
+		"
 "/                (display startsWith:'slsv') ifTrue:[
-"/                    "all those machines here at SEL are suns"
+"/                    "all those machines at SEL are suns"
 "/                    displayType := 'sun'
 "/                ].
+"/                (display startsWith:'frxt') ifTrue:[
+"/                    "all those machines at AEG are xterminals"
+"/                    displayType := 'xterminal'
+"/                ].
+"/                (display startsWith:'frlx') ifTrue:[
+"/                    "all those machines at AEG are linux boxes with olwm"
+"/                    displayType := 'linux_olwm'
+"/                ].
 	    ].
 	].
     ].
@@ -300,7 +316,10 @@
 	View defaultStyle:#iris 
     ].
     type = 'hpux' ifTrue:[
-	View defaultStyle:#motif 
+	View defaultStyle:#'motif_light' 
+    ].
+    type = 'ultrix' ifTrue:[
+	View defaultStyle:#'motif_light' 
     ].
     View defaultStyle isNil ifTrue:[
 	Display hasGreyscales ifTrue:[
@@ -309,6 +328,7 @@
 	    View defaultStyle:#normal
 	]
     ].
-    'no style set in display.rc - using default' errorPrintNL
+    'no style set in display.rc - default to ' errorPrint.
+    View defaultStyle errorPrintNL
 ]
 !