; 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