--- a/styles/decWindows.style	Tue Mar 21 12:10:26 2000 +0100
+++ b/styles/decWindows.style	Tue Mar 21 18:49:16 2000 +0100
@@ -4,12 +4,12 @@
 ; like motif
 ;
 ;
-; $Header: /cvs/stx/stx/libview/styles/decWindows.style,v 1.7 1999-10-27 13:28:02 stefan Exp $
+; $Header: /cvs/stx/stx/libview/styles/decWindows.style,v 1.8 2000-03-21 17:49:16 stefan Exp $
 
 #if Screen current isNil or:[Screen current hasGreyscales]
 viewGrey                    (Color grey:60) "/ (Color grey:59.6078) 
 scrollerVB                  (Color grey:50) "/ (Color grey:50.1961)
-selectionInListColor        (Color red:40.7843 green:42.3529 blue:50.1961)
+selectionInListColor        (Color red:66.7 green:66.7 blue:66.7)
 #endif
 
 #if Screen current isNil or:[Screen current hasColors]
@@ -36,6 +36,9 @@
 comment  'Comme DEC-windows'
 #endif
 
+textForeground            Color black
+; textForeground Color white
+
 lightColor                Color grey:85
 shadowColor               Color grey:25 "/ Color grey:30
 
@@ -48,17 +51,15 @@
 
 selection.foregroundColor  Color black
 
-label.foregroundColor      Color black
-
 button.activeBackgroundColor      =scrollerVB
-button.foregroundColor            Color white
-button.activeForegroundColor      Color white
+button.foregroundColor            =textForeground
+button.activeForegroundColor      =textForeground
 button.activeLevel                -1
 button.passiveLevel               1
 button.font                       =menuFont
 
 label.font                       =menuFont
-label.foregroundColor            Color white
+label.foregroundColor            =textForeground
 
 arrowButton.activeForegroundColor =viewGrey  
 
@@ -71,14 +72,14 @@
 
 menu.viewBackgroundColor         =viewGrey
 menu.backgroundColor             =viewGrey
-menu.foregroundColor             Color white
+menu.foregroundColor             =textForeground
 menu.disabledForegroundColor     Color darkGrey
 ; menu.hilightLevel                -1
 ; menu.hilightFrameColor           nil
 
 selection.backgroundColor        =selectionInListColor
-selection.foregroundColor        Color white
-selection.hilightForegroundColor =selectionInListColor
+selection.foregroundColor        =textForeground
+selection.hilightForegroundColor Color black
 selection.hilightBackgroundColor Color white
 ; selection.hilightFrameColor      =orange
 selection.hilightFrameColor      nil
@@ -86,8 +87,8 @@
 selection.disabledForegroundColor     Color gray:25
 
 editField.backgroundColor        =selectionInListColor
-editField.foregroundColor        Color white
-editField.hilightForegroundColor =selectionInListColor
+editField.foregroundColor        =textForeground
+editField.hilightForegroundColor Color black
 editField.hilightBackgroundColor Color white
 editField.cursorType             #Ibeam
 editField.cursorForegroundColor  nil
@@ -100,5 +101,5 @@
 focusColor                       =orange
 #endif
 
-framedBox.foregroundColor        Color white
+framedBox.foregroundColor        =textForeground
 framedBox.font                   =menuFont