*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sun, 18 Apr 1999 00:21:21 +0200
changeset 337 6fcb6ac8935a
parent 336 5eb44f3e88af
child 338 c3432d77f4d7
*** empty log message ***
display.rc
--- a/display.rc	Thu Apr 15 20:20:16 1999 +0200
+++ b/display.rc	Sun Apr 18 00:21:21 1999 +0200
@@ -289,18 +289,22 @@
 	    |serverVendor|
 	    serverVendor := Display serverVendor.
 
-	    serverVendor = 'The XFree86 Project, Inc'
+	    (serverVendor startsWith:'The XFree86 Project, Inc')
 	    ifTrue:[
 		displayType := 'xfree'
 	    ].
-	    serverVendor = 'Silicon Graphics'
+	    (serverVendor startsWith:'Silicon Graphics')
 	    ifTrue:[
 		displayType := 'iris'
 	    ].
-	    serverVendor = 'International Business Machines'
+	    (serverVendor startsWith:'International Business Machines')
 	    ifTrue:[
 		displayType := 'aix'
 	    ].
+	    (serverVendor startsWith:'DECWINDOWS Digital Equipment')
+	    ifTrue:[
+		displayType := 'dec'
+	    ].
 	].
 
 	"