; View defaultStyle:#win95
;
; $Header: /cvs/stx/stx/libview/styles/mswindows3.style,v 1.25 1997-11-20 18:46:38 cg Exp $
comment 'win95 lookalike - unfinished'
#if (Language == #german) or:[Language == #de]
comment 'MS Windows95 Variante\unvollendet'
#endif
is3D true
name #win95
#if Display hasGreyscales
selectionBlue (Color red:0 green:0 blue:50) exactOrNearestOn:(Screen current)
; viewGrey (Color grey:67) exactOrNearestOn:(Screen current)
viewGrey (Color grey:77) exactOrNearestOn:(Screen current)
; viewLightGrey (Color grey:80) exactOrNearestOn:(Screen current)
viewLightGrey (Color grey:90) exactOrNearestOn:(Screen current)
lightColor Color white
halfShadowColor (Color grey:33) exactOrNearestOn:(Screen current)
; 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
borderWidth 0
viewBackground =viewGrey
popup.borderWidth 1
popup.shadow false
font Font family:'helvetica' face:'medium' style:'roman' size:12
textFont Font family:'courier' face:'medium' style:'roman' size:12
textCursor.type #ibeam
textCursor.noFocusForegroundColor Color grey
#if Display hasGrayscales
; editField.backgroundColor Color grey:90
editField.backgroundColor Color white
#else
editField.backgroundColor Color white
editField.shadowColor Color black
editField.lightColor Color grey:80
#endif
checkToggle.activeLevel -2
checkToggle.passiveLevel -2
checkToggle.foregroundColor Color black
checkToggle.backgroundColor Color white
checkToggle.activeForegroundColor Color black
checkToggle.activeBackgroundColor Color white
checkToggle.bitmapFile 'CheckOn14.xbm'
#if Display hasGreyscales
menu.hilightForegroundColor Color white
menu.hilightBackgroundColor =selectionBlue
#else
menu.hilightForegroundColor Color white
menu.hilightBackgroundColor Color black
#endif
pullDownMenu.separatingLines false
pullDownMenu.level 0
selection.hilightForegroundColor Color white
#if Display hasGrayscales
selection.hilightBackgroundColor =selectionBlue
#else
selection.hilightBackgroundColor Color black
#endif
selection.hilightFrameColor Color black
selection.rightArrowLevel 0
selection.rightArrowStyle #solid
variablePanel.handlePosition #right
variablePanel.handleStyle #none
variablePanel.trackingStyle #dashedLine
variablePanel.barHeight 4
scrollableView.level -1
; scrollableView.backgroundColor =viewLightGrey
scrolledView.borderWidth 0
scrolledView.level 0
scrolledView.margin 0
scrollBar.level 0
scrollBar.spacing 0
scrollBar.hiding true
scrollBar.neverMini true
scrollBar.position #right
scrollBar.buttonPositions #around
scrollBar.viewBackground =viewLightGrey
#if Display hasGreyscales
scroller.viewBackground =viewLightGrey
scroller.thumbColor =viewGrey
scroller.thumbEdgeStyle #soft
scroller.thumbLightColor =viewGrey
scroller.thumbHalfLightColor Color white
#else
scroller.viewBackground Color grey:87.5
scroller.thumbColor Color white
#endif
scroller.thumbLevel 2
scroller.borderWidth 1
scroller.level 0
scroller.ghostFrameColor Color darkGrey
scroller.snapBack true
;button.activeLevel 1
button.activeLevel -1 "/ 0
button.passiveLevel 2
#if Display hasGreyscales
button.edgeStyle #soft
; button.activeForegroundColor Color black
; button.activeBackgroundColor Color white
; button.enteredBackgroundColor Color lightGrey
button.halfShadowColor =viewGrey darkened exactOrNearestOn:(Screen current)
button.halfLightColor Color white
#else
button.activeBackgroundColor Color black
button.activeForegroundColor Color white
; button.enteredBackgroundColor Color grey:87.5
#endif
radioButton.style #round3D
; arrowButton.upFormFile 'ScrollUp.w95.14.xbm'.
; arrowButton.downFormFile 'ScrollDn.w95.14.xbm'.
; arrowButton.leftFormFile 'ScrollLt.w95.14.xbm'.
; arrowButton.rightFormFile 'ScrollRt.w95.14.xbm'.
arrowButton.upFormFile 'ScrollUp.w95.11.xbm'.
arrowButton.downFormFile 'ScrollDn.w95.11.xbm'.
arrowButton.leftFormFile 'ScrollLt.w95.11.xbm'.
arrowButton.rightFormFile 'ScrollRt.w95.11.xbm'.
selection.rightArrowForm Image extent:16@12 depth:1 \
bits:#[ \
2r00000000 2r00000000 \
2r00000000 2r00000000 \
2r00000000 2r00000000 \
2r00000010 2r00000000 \
2r00000011 2r00000000 \
2r00000011 2r10000000 \
2r00000011 2r11000000 \
2r00000011 2r10000000 \
2r00000011 2r00000000 \
2r00000010 2r00000000 \
2r00000000 2r00000000 \
2r00000000 2r00000000 \
] \
pad:8
comboView.level -1
comboView.downFormFile 'ScrollDn.w95.11.xbm'.
selection.font Font family:'helvetica' face:'medium' style:'roman' size:12
html.backgroundColor Color white
html.anchorForegroundColor Color green darkened
html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened
html.anchorUnderlines true
activeHelp.backgroundColor Color yellow lightened
activeHelp.borderWidth 2