--- 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 \