; 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