--- a/d_sun.rc	Tue Mar 23 10:56:12 2004 +0100
+++ b/d_sun.rc	Tue Mar 23 10:59:07 2004 +0100
@@ -25,11 +25,11 @@
  *"
 
 "/ actually, openwin-style is not finished yet
-"/ you may prefer #iris, #motif or #normal
+"/ you may prefer #iris, #motif
 
-View defaultStyle:#openwin.
+View defaultStyle:#mswindows95.
+"/ View defaultStyle:#openwin.
 "/ View defaultStyle:#iris.
-"/ View defaultStyle:#normal.
 "/ View defaultStyle:#motif.
 !
 

--- a/display.rc	Tue Mar 23 10:56:12 2004 +0100
+++ b/display.rc	Tue Mar 23 10:59:07 2004 +0100
@@ -474,52 +474,26 @@
 "/         Except, when the d_xxx.rc is not present.
 "/
 
-|type wm|
+|type wm style|
 
 View defaultStyle isNil ifTrue:[
+    style := #mswindows95.
     type := OperatingSystem getSystemType.
     type = 'sunos' ifTrue:[
 	"/ CG: now obsolete; use windows-style here
 	"/ View defaultStyle:#openwin
-	View defaultStyle:#mswindows95
+	style := #mswindows95
     ].
     type = 'next' ifTrue:[
-	View defaultStyle:#next
+	style := #next
     ].
     type = 'iris' ifTrue:[
-	View defaultStyle:#iris
-    ].
-    type = 'exceed' ifTrue:[
-	View defaultStyle:#mswindows95
-    ].
-    type = 'linux' ifTrue:[
-	View defaultStyle:#mswindows95
-    ].
-    type = 'hpux' ifTrue:[
-	View defaultStyle:#motif
-    ].
-    type = 'ultrix' ifTrue:[
-	View defaultStyle:#'motif_dec2'
+	style := #iris
     ].
     type = 'os2' ifTrue:[
-	View defaultStyle:#os2
-    ].
-    (type = 'win32') ifTrue:[
-	View defaultStyle:#'mswindows95'
+	style := #os2
     ].
-
-    "/ final fallBack ...
-
-    View defaultStyle isNil ifTrue:[
-	(Display notNil and:[Display hasGreyscales]) ifTrue:[
-	    "/ CG: now obsolete; use windows-style here
-	    "/ View defaultStyle:#iris
-	    View defaultStyle:#'mswindows95'
-	] ifFalse:[
-	    View defaultStyle:#normal
-	]
-    ].
-    'display.rc [info]: no style set - default to ' infoPrint.
-    View defaultStyle infoPrintCR
+    View defaultStyle:style
+    'display.rc [info]: no style set - default to ' infoPrint. style infoPrintCR.
 ]
 !