styles/st80.style
changeset 2607 e19a8a144912
parent 2568 c0a4681674e2
child 2991 918e2f570098
--- a/styles/st80.style	Wed Apr 28 21:30:48 1999 +0200
+++ b/styles/st80.style	Wed Apr 28 22:35:13 1999 +0200
@@ -2,7 +2,7 @@
 ;
 ; simulation of the old st80 style - looks somewhat like os2
 ;
-; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.24 1999-04-21 21:11:49 cg Exp $
+; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.25 1999-04-28 20:35:13 cg Exp $
 
 comment  'old `ST80'' 3D look alike'
 
@@ -35,17 +35,24 @@
 #if Display hasGreyscales
 is3D                            true
 borderWidth                     0
-viewGrey                        Color grey:80
+viewGrey                         Color grey:80
+darkerGrey                       Color grey:60
+
 selection.hilightForegroundColor Color black
-selection.hilightBackgroundColor Color grey:60
+selection.hilightBackgroundColor =darkerGrey
 selection.hilightFrameColor      Color black
 #else
-viewGrey                        Color white
-lightColor                      Color grey:50
+viewGrey                         Color white
+lightColor                       Color grey:50
 borderWidth               1
 #endif
 
-viewBackground                  =viewGrey
+#if Display platformName = 'WIN32'
+viewGrey           [Display getSystemColor:#'COLOR_BTNFACE']
+darkerGrey         Color grey:50
+#endif
+
+viewBackground                   =viewGrey
 
 variablePanel.barHeightMM        2
 
@@ -78,8 +85,8 @@
 #if Display hasColors
 #text.selectionBackgroundColor     Color green
 #text.selectionForegroundColor     Color black
-text.selectionBackgroundColor     Color grey:60
-text.selectionForegroundColor     Color black
+text.selectionBackgroundColor      =darkerGrey
+text.selectionForegroundColor      Color black
 #else
 # if Display hasGreyscales
 text.selectionBackgroundColor     =viewGrey "Color grey"
@@ -129,3 +136,13 @@
 
 TextView.st80Selections            true
 
+#if Display platformName = 'WIN32'
+
+viewBackgroundColor              [Display getSystemColor:#'COLOR_MENU'          ]
+menu.backgroundColor             [Display getSystemColor:#'COLOR_MENU'          ]
+menu.foregroundColor             [Display getSystemColor:#'COLOR_MENUTEXT'      ]
+pullDownMenu.backgroundColor     =menu.backgroundColor
+button.backgroundColor           [Display getSystemColor:#'COLOR_BTNFACE'       ]
+
+#endif
+