256 	 if the X-server gives some info,

   256 	 if the X-server gives some info,

   257 	 take that as a base

   257 	 take that as a base

   258 	"

   258 	"

   259 	displayType isNil ifTrue:[

   259 	displayType isNil ifTrue:[

   260 	    |serverVendor|

   260 	    |serverVendor|

   261 	    serverVendor := displayDevice serverVendor.

   262 	    serverVendor := displayDevice serverVendor.

   262 

   263 

   263 	    (serverVendor startsWith:'The XFree86 Project, Inc')

   264 	    (serverVendor startsWith:'The XFree86 Project, Inc')

   264 	    ifTrue:[

   265 	    ifTrue:[

   265 		displayType := 'xfree'

   266 		displayType := 'xfree'

   277 		displayType := 'dec'

   278 		displayType := 'dec'

   278 	    ].

   279 	    ].

   279 	    (serverVendor startsWith:'Hummingbird Communications')

   280 	    (serverVendor startsWith:'Hummingbird Communications')

   280 	    ifTrue:[

   281 	    ifTrue:[

   281 		displayType := 'exceed'

   282 		displayType := 'exceed'

   282 	    ].

   287 	    ].

   283 	].

   288 	].

   284 

   289 

   285 	"

   290 	"

   286 	 otherwise ...

   291 	 otherwise ...