; View defaultStyle:#st80 
;
; simulation of the old st80 style - looks somewhat like os2
;
; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.14 1997-03-18 16:22:15 cg Exp $

comment  'old `ST80'' 3D look alike'

#if (Language == #german) or:[Language == #de]
comment  'An früheres `ST-80'' angelehnt'
#endif
#if (Language == #french) or:[Language == #fr]
comment  'Comme `ST-80'''
#endif

name            #st80

;
; take a smaller font on VGA displays
;

#if Display width == 640
; take smaller fonts on VGA screens
font               Font family:'courier' face:'medium' style:'roman' size:10
variableBoldFont   Font family:'helvetica' face:'medium' style:'roman' size:10
boldFont           Font family:'helvetica' face:'bold' style:'roman' size:10
#else
variableFont       Font family:'helvetica' face:'medium' style:'roman' size:12
variableBoldFont   Font family:'helvetica' face:'bold' style:'roman' size:12
#endif

selectionFont      =variableFont
labelFont          =selectionFont

#if Display hasGreyscales
is3D                            true
borderWidth                     0
viewGrey                        Color grey:80
selectionHilightForegroundColor Color black
selectionHilightBackgroundColor Color grey:50
#else
viewGrey                        Color white
lightColor                      Color grey:50
borderWidth               1
#endif

viewBackground                  =viewGrey

scrolledViewLevel               1
scrolledViewMargin              1

scrollBarPosition               #right
scrollBarHiding                 true               "/ automatic hiding of useless scrollBars

scrollBarButtonPositions        #around     
scrollBarLevel                  0
scrollBarElementSpacing         0
scrollBarSpacing                0
; scrollBarNeverMini              true
scrollBarButtonImageMargin      0

scrollerLevel                   1
scrollerViewBackground          =viewGrey
scrollerThumbColor              Color black
scrollerThumbFrameColor         nil
scrollerThumbLevel              0
scrollerThumbInset              3

textCursorType                   #solidCaret
textCursorBackgroundColor        Color black
textCursorNoFocusForegroundColor Color grey

#if Display hasColors
textSelectionBackgroundColor     Color green
textSelectionForegroundColor     Color black
#else
# if Display hasGreyscales
textSelectionBackgroundColor     =viewGrey "Color grey"
textSelectionForegroundColor     Color black
# endif
#endif

popupBorderWidth                 1     

arrowButtonStyle                 #st80 
arrowButtonActiveForegroundColor Color white   
; buttonActiveForegroundColor      Color white
buttonActiveBackgroundColor      Color grey

menuFont                         =variableBoldFont
menuViewBackground               Color white
menuForegroundColor              Color black
menuBackgroundColor              Color white
menuHilightForegroundColor       =menuBackgroundColor
menuHilightBackgroundColor       =menuForegroundColor
menuHighlightLevel               0
menuSeparatingLineLevel          0
menuSeparatingLineInset          0

pullDownMenuFont                 =variableBoldFont
pullDownMenuViewBackground       =viewGrey
pullDownMenuLevel                0
pullDownMenuHilightLevel         -1
pullDownMenuHilightBackgroundColor  Color grey
pullDownMenuSeparatingLines         false
; pullDownMenuKeepMenu                true