; View defaultStyle:#os2
;
; this is not yet completed
;
; $Header: /cvs/stx/stx/libview/styles/os2.style,v 1.20 2005-06-27 10:34:22 cg Exp $

comment  'OS/2 look alike'

#if (Language == #german) or:[Language == #de]
comment  'An `OS/2'' angelehnter Stil'
#endif
#if (Language == #french) or:[Language == #fr]
comment  'Comme `OS/2'''
#endif

is3D                      true
name                      #os2

; viewGrey                  Color grey:80
; darkerGrey                Color grey:67


#if Screen current hasColors
Yellow                    (Color red:100 green:100 blue:70) exactOrNearestOn:(Screen current)
Yellow                    (Color red:100 green:100 blue:70)
#else
Yellow                    Color white
#endif

#if Screen current hasGreyscales
viewGrey                  (Color grey:67) exactOrNearestOn:(Screen current)
brighterGrey              (Color grey:80) exactOrNearestOn:(Screen current)
darkerGrey                (Color grey:50) exactOrNearestOn:(Screen current)
#else
Yellow                    Color white
viewGrey                  Color white
brighterGrey              Color white
darkerGrey                Color white
#endif

#if Screen current platformName = 'WIN32'
viewGrey           [Screen current getSystemColor:#'COLOR_BTNFACE']
brighterGrey       [Screen current getSystemColor:#'COLOR_BTNFACE']
darkerGrey         Color grey:50
#endif

borderWidth               0
viewBackground            =viewGrey

fatFont                   Font family:'helvetica' face:'bold' style:'roman' size:12
thinFont                  Font family:'helvetica' face:'medium' style:'roman' size:12

scrollBar.position         #right

scrollBar.buttonPositions  #around
scrollBar.level            -1
scrollBar.elementSpacing   0
scrollBar.disableButtons   true               "/ disable useless scrollButtons
scrollBar.hiding           true               "/ automatic hiding of useless scrollBars

scroller.level             0
scroller.viewBackground    =darkerGrey
scroller.thumbColor        =viewGrey
scroller.thumbLevel        1
scroller.thumbInset        0
;scroller.thumbInset        1
miniScroller.size          2.5  "/ millimeter

button.edgeStyle                 #soft
button.activeLevel               -1
button.passiveLevel              3
button.returnButtonHasBorder     true
; button.activeBackgroundColor     =darkerGrey
#if Screen current hasGreyscales
button.activeBackgroundColor     =brighterGrey
#else
button.activeBackgroundColor     Color black
button.activeForegroundColor     Color white
#endif

radioButton.style                       #round3D

textCursor.type                          #solidCaret
textCursor.backgroundColor               Color black
textCursor.noFocusForegroundColor        Color grey

popup.shadow                     true
popup.shadowColor                Color black
popup.borderWidth                1

arrowButton.style                  #os2
arrowButton.foregroundColor        Color black
arrowButton.activeBackgroundColor  =viewGrey
arrowButton.upFormFile             'ScrollUp.os2.14.xbm'.
arrowButton.downFormFile           'ScrollDn.os2.14.xbm'.
arrowButton.leftFormFile           'ScrollLt.os2.14.xbm'.
arrowButton.rightFormFile          'ScrollRt.os2.14.xbm'.
arrowButton.activeLevel            -1 "/ 0
arrowButton.passiveLevel           1

#if Screen current hasGreyscales
button.disabledForegroundColor     Color white
arrowButton.activeForegroundColor  Color white
#else
button.disabledForegroundColor     Color grey
arrowButton.activeForegroundColor  Color grey
#endif

checkToggle.checkColor             Color black
#if Screen current hasGreyscales not
checkToggle.activeBackgroundColor  Color white
#else
checkToggle.activeBackgroundColor =viewGrey
#endif

selection.font                     =fatFont
label.font                         =thinFont

selection.backgroundColor          =Yellow
selection.hilightForegroundColor   Color white
#if Screen current hasGreyscales
selection.hilightBackgroundColor   (Color grey:50) exactOrNearestOn:(Screen current)
selection.hilightFrameColor        (Color grey:25) exactOrNearestOn:(Screen current)
#else
selection.hilightBackgroundColor   Color black
selection.hilightFrameColor        Color grey:25
#endif

selection.hilightLevel             0
selection.rightArrowLevel          0

editField.backgroundColor            =Yellow
editField.selectionBackgroundColor   Color black
editField.selectionForegroundColor   Color white

;
; since menus inherit from selectionInList,
; redefine the Yellow settings ...
;
menu.font                            =fatFont
menu.backgroundColor                 =viewGrey
menu.shadowColor                     =menu.backgroundColor darkened
menu.lightColor                      =menu.backgroundColor lightened
; menu.hilightForegroundColor        Color white
; menu.hilightBackgroundColor        =darkerGrey
#if Screen current hasGreyscales
menu.hilightFrameColor               nil
menu.hilightLevel                    -1
#else
menu.hilightFrameColor               Color black
menu.hilightLevel                    0
#endif
menu.viewBackground                  =viewGrey
menu.separatingLineLevel             0

pullDownMenu.font                    =fatFont
pullDownMenu.separatingLines         false
;; pullDownMenu.level                0
pullDownMenu.level                   1
pullDownMenu.hilightLevel            -1
#if Screen current hasGrayscales
pullDownMenu.hilightForegroundColor  Color black
#else
pullDownMenu.hilightForegroundColor  Color white
#endif

#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
#endif