; common for all mswindows-like styles
;
; this is not yet completed
;
; $Header: /cvs/stx/stx/libview/styles/mswindows.common,v 1.12 2013-11-25 15:24:54 stefan Exp $

name                            #mswindows

;this seems not fully true, buttons
;and scrollers show some 3D.
;anyway, most other views are flat.
is3D                            false

#if Screen current hasGreyscales not
viewGrey                        Color white
#endif

borderWidth                     1
popupBorderWidth                1
viewBackground                  =viewGrey

font                            Font family:'arial' face:'medium' style:'roman' size:10
textFont                        Font family:'courier new' face:'medium' style:'roman' size:10

scrollBar.position               #right
scrollBar.buttonPositions        #around
scrollBar.spacing                0

scroller.borderWidth             1
#if Screen current hasGreyscales
scroller.viewBackground          Color grey:80
#else
scroller.viewBackground          Color white
#endif
scroller.fullViewBackground      Color white
scroller.thumbColor              Color grey:80

scroller.thumbLevel              3 "2"
scroller.thumbFixHeight          true
scroller.thumbEdgeStyle          #soft
scroller.thumbFrameColor         Color black
scroller.ghostFrameColor         Color darkGrey

; variablePanel.showHandle       false

framedBox.labelPosition          #topLeft
framedBox.3DFrame                false

button.edgeStyle                 #soft
button.activeLevel               -1
button.passiveLevel              4 "3"
button.disabledForegroundColor       Color darkGrey
button.borderWidth               0

#if Screen current hasGreyscales
button.foregroundColor           Color black
button.backgroundColor           Color grey:80
button.disabledEtchedForegroundColor Color white
button.activeForegroundColor     =buttonForegroundColor
button.activeBackgroundColor     =buttonBackgroundColor
#endif

button.returnButtonHasBorder     true

arrowButton.style                #mswindows
arrowButton.upFormFile           'ScrollUp_win.xbm'
arrowButton.downFormFile         'ScrollDn_win.xbm'
arrowButton.leftFormFile         'ScrollLt_win.xbm'
arrowButton.rightFormFile        'ScrollRt_win.xbm'

checkToggle.bitmapFile           nil
checkToggle.style                #cross
checkToggle.activeLevel          0
checkToggle.passiveLevel         0
checkToggle.borderWidth          1
checkToggle.activeBackgroundColor Color white
checkToggle.backgroundColor       Color white

radioButton.style                #round2D

;
; selection-in-list
;
#if Screen current hasColors
selection.hilightForegroundColor Color white
selection.hilightBackgroundColor Color blue
selection.hilightFrameColor      Color black
#endif

menuView.background              Color white

pullDownMenu.keepMenu            true

popUpList.popPosition            #below

#if Screen current hasGrayscales not
html.anchorUnderline                true
html.anchorForegroundColor          Color black
html.backgroundColor                Color white
html.activeAnchorForegroundColor    Color black
html.activeAnchorBackgroundColor    =html.backgroundColor
html.visitedAnchorForegroundColor   Color black
html.exampleAnchorForegroundColor   Color black
#else
html.backgroundColor               Color white
html.anchorForegroundColor         Color green darkened
html.visitedAnchorForegroundColor  =html.anchorForegroundColor darkened darkened
html.anchorUnderlines              true
#endif