; View defaultStyle:#st80 
;
; simulation of the old st80 style - looks somewhat like os2
;
; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.1 1995-03-23 16:55:31 claus Exp $

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
selectionFont      Font family:'helvetica' face:'medium' style:'roman' size:10
#else
selectionFont      Font family:'helvetica' face:'medium' style:'roman' size:12
#endif

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

viewBackground            =viewGrey

scrollBarPosition         #right

scrollBarButtonPositions  #around     
scrollBarLevel            0
scrollBarElementSpacing   0

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

textCursorType                   #solidCaret
textCursorBackgroundColor        Color black
#if Display hasGreyscales
textSelectionBackgroundColor     Color grey
textSelectionForegroundColor     Color black
#endif

popupBorderWidth                 1     

arrowButtonStyle                 #st80 
arrowButtonActiveForegroundColor Color white   

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