--- a/styles/mswindows95.style Tue Sep 08 12:04:14 1998 +0200
+++ b/styles/mswindows95.style Tue Sep 08 12:05:17 1998 +0200
@@ -1,6 +1,6 @@
; View defaultStyle:#mswindows95
;
-; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.9 1998-08-20 18:36:19 cg Exp $
+; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.10 1998-09-08 10:05:17 cg Exp $
comment 'win95 lookalike'
@@ -16,7 +16,8 @@
name #win95
-#if Display hasGreyscales
+#if Display hasGreyscales
+
selectionBlue (Color red:0 green:0 blue:50) exactOrNearestOn:(Screen current)
; viewGrey (Color grey:67) exactOrNearestOn:(Screen current)
@@ -28,15 +29,29 @@
; halfLightColor (Color grey:67) exactOrNearestOn:(Screen current)
; halfLightColor Color white "/ grey:67
halfLightColor =viewGrey
+
#else
+
selectionBlue Color black
viewGrey Color white
viewLightGrey Color white
lightColor Color grey:50
+
#endif
shadowColor Color black
+#if Display platformName = 'WIN32'
+
+selectionBlue Display getSystemColor:#COLOR_HIGHLIGHT
+menu.backgroundColor Display getSystemColor:#COLOR_MENU
+menu.foregroundColor Display getSystemColor:#COLOR_MENUTEXT
+pullDownMenu.backgroundColor =menu.backgroundColor
+viewGrey Display getSystemColor:#COLOR_BTNFACE
+
+#endif
+
+
borderWidth 0
viewBackground =viewGrey
popup.borderWidth 1
@@ -50,12 +65,12 @@
textFont Font family:'courier' face:'medium' style:'roman' size:12
#endif
-#if Display serverVendor = 'microsoft' and:[Display width <= 800]
+#if Display platformName = 'WIN32' and:[Display width <= 800]
font Font family:'MS SANS SERIF' size:8
textFont Font family:'courier' face:'medium' style:'roman' size:8
#endif
-#if Display serverVendor = 'microsoft' and:[Display width > 800]
+#if Display platformName = 'WIN32' and:[Display width > 800]
font Font family:'MS SANS SERIF' size:10
textFont Font family:'courier' face:'medium' style:'roman' size:10
#endif
@@ -82,7 +97,7 @@
checkToggle.backgroundColor Color white
checkToggle.activeForegroundColor Color black
checkToggle.activeBackgroundColor Color white
-checkToggle.bitmapFile 'CheckOn14.xbm'
+checkToggle.bitmapFile 'CheckOn10.xbm'
#if Display hasGreyscales
menu.hilightForegroundColor Color white
@@ -111,12 +126,14 @@
variablePanel.handlePosition #right
variablePanel.handleStyle #full
+
#if Display serverVendor ~= 'Silicon Graphics'
; SGI Xserver has a bug, keeping the dashed lineStyle in its GC
variablePanel.trackingStyle #dashedLine
#else
variablePanel.trackingStyle #solidLine
#endif
+
variablePanel.barHeight 6
variablePanel.handleLevel 1
@@ -202,9 +219,34 @@
html.backgroundColor Color white
-html.anchorForegroundColor Color green darkened
-html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
-html.anchorUnderlines true
+; html.anchorForegroundColor Color green darkened
+; html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
+html.visitedAnchorForegroundColor Color red:50 green:0 blue:50
+; html.anchorUnderlines true
activeHelp.backgroundColor Color yellow lightened
activeHelp.borderWidth 2
+
+;
+; if running under windows, use the systemColor settings
+;
+#if Display platformName = 'WIN32'
+
+menu.backgroundColor Display getSystemColor:#COLOR_MENU
+menu.foregroundColor Display getSystemColor:#COLOR_MENUTEXT
+pullDownMenu.backgroundColor =menu.backgroundColor
+scrBg Display getSystemColor:#COLOR_SCROLLBAR
+#if (Display getSystemColor:#COLOR_SCROLLBAR) brightness > 0.95
+scroller.viewBackground (Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Display) colorMap:(Array with:Color black with:(Display getSystemColor:#COLOR_SCROLLBAR) )
+#else
+scroller.viewBackground (Form width:8 height:8 fromArray:(Color ditherBits at:32) on:Display) colorMap:(Array with:Color white with:(Display getSystemColor:#COLOR_SCROLLBAR) )
+#endif
+button.backgroundColor Display getSystemColor:#COLOR_BTNFACE
+
+text.selectionForegroundColor Display getSystemColor:#COLOR_HIGHLIGHTTEXT
+text.selectionBackgroundColor Display getSystemColor:#COLOR_HIGHLIGHT
+
+scroller.thumbColor =scrBg
+
+#endif
+