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