diff -r 6b658a7012dd -r 918e2f570098 styles/motif.common
--- a/styles/motif.common	Wed Oct 27 14:10:19 1999 +0200
+++ b/styles/motif.common	Wed Oct 27 15:28:03 1999 +0200
@@ -2,7 +2,7 @@
 ; common motif stuff (not a style, but included by all motif style variations)
 ;
 ;
-; $Header: /cvs/stx/stx/libview/styles/motif.common,v 1.28 1999-10-26 18:16:06 cg Exp $
+; $Header: /cvs/stx/stx/libview/styles/motif.common,v 1.29 1999-10-27 13:28:02 stefan Exp $
 
 ;
 ; this is to be included from the real style,
@@ -35,7 +35,7 @@
 scrollBar.disableButtons         true
 ; scrollBar.hiding                 true
 
-#if Display isNil or:[Display hasGreyscales]
+#if Screen current isNil or:[Screen current hasGreyscales]
 scroller.thumbColor               =viewGrey
 scroller.viewBackground           =mediumColor
 #else
@@ -69,7 +69,7 @@
 button.activeForegroundColor      Color black
 button.disabledForegroundColor    =shadowColor
 
-#if Display notNil and:[Display hasGreyscales not]
+#if Screen current notNil and:[Screen current hasGreyscales not]
 button.activeBackgroundColor      Color grey:80
 #endif
 
@@ -95,7 +95,7 @@
 pullDownMenu.keepMenu                 true
 pullDownMenu.level                    1
 pullDownMenu.hilightLevel             2
-#if Display notNil and:[Display hasGreyscales not]
+#if Screen current notNil and:[Screen current hasGreyscales not]
 pullDownMenu.hilightForegroundColor   Color white
 pullDownMenu.hilightBackgroundColor   Color black
 #endif
@@ -125,7 +125,7 @@
 ruler.foregroundColor            Color black
 ruler.backgroundColor            =viewGrey
 
-#if Display notNil and:[Display hasGrayscales not]
+#if Screen current notNil and:[Screen current hasGrayscales not]
 html.anchorUnderline                true
 html.anchorForegroundColor          Color black
 html.backgroundColor                Color white
@@ -151,7 +151,7 @@
 requestBox.iconFile                'bitmaps/Request_motif.xbm'
 
 
-#if Display isNil or:[Display hasGrayscales]
+#if Screen current isNil or:[Screen current hasGrayscales]
 arrowButton.upForm                 Image extent:11@12 \
 					depth:2      \
 					bits:#[4r0000 4r0100 4r0000 \