; View defaultStyle:#'decWindows' 
;
; dec's motif style (as seen on an OSF-alpha system)
; like motif
;
;
; $Header: /cvs/stx/stx/libview/styles/decWindows.style,v 1.1 1999-04-22 17:41:40 cg Exp $

#if Display hasGreyscales
viewGrey                    (Color grey:59.6078) 
scrollerVB                  (Color grey:50.1961)
selectionInListColor        (Color red:40.7843 green:42.3529 blue:50.1961)
#endif
#if Display hasColors
orange                      (Color red:90.9804 green:65.8824 blue:43.9216)
#endif

shadowColor                 (Color grey:50.1961)
lightColor                  (Color grey:81.5686)
mediumColor                 (Color grey:59.6078)

selectionFont        Font family:'lucidabright' face:'medium' style:'roman' size:12
labelFont            Font family:'lucidabright' face:'medium' style:'roman' size:12
menuFont             Font family:'lucidabright' face:'medium' style:'roman' size:12
textFont             Font family:'courier' size:12 

#include 'motif.common'

comment  'DEC-windows look alike'

#if (Language == #german) or:[Language == #de]
comment  'Angelehnt an DEC-windows.'
#endif
#if (Language == #french) or:[Language == #fr]
comment  'Comme DEC-windows'
#endif

lightColor                Color grey:85
shadowColor               Color grey:30

textCursor.type            #block

scroller.viewBackground    =scrollerVB 
scroller.thumbColor        =viewGrey
scroller.thumbLevel        1
scrollBar.level            -1

selection.foregroundColor  Color black

label.foregroundColor      Color black

button.activeBackgroundColor      =scrollerVB
button.foregroundColor            Color white
button.activeForegroundColor      Color white
button.activeLevel                -1
button.passiveLevel               1
button.font                       =menuFont

label.font                       =menuFont
label.foregroundColor            Color white

arrowButton.activeForegroundColor =viewGrey  

checkToggle.bitmapFile                  'CheckOn14Dec.xbm'
checkToggle.activeBackgroundColor       =scrollerVB
checkToggle.backgroundColor             =viewGrey
checkToggle.disabledForegroundColor     Color gray:33
checkToggle.activeLevel                 -1
checkBoxStyle                           #dummy

menu.viewBackgroundColor         =viewGrey
menu.backgroundColor             =viewGrey
menu.foregroundColor             Color white
menu.disabledForegroundColor     Color darkGrey
; menu.hilightLevel                -1
; menu.hilightFrameColor           nil

selection.backgroundColor        =selectionInListColor
selection.foregroundColor        Color white
selection.hilightForegroundColor =selectionInListColor
selection.hilightBackgroundColor Color white
; selection.hilightFrameColor      =orange
selection.hilightFrameColor      nil
selection.font                   =menuFont

editField.backgroundColor        =selectionInListColor
editField.foregroundColor        Color white
editField.hilightForegroundColor =selectionInListColor
editField.hilightBackgroundColor Color white
editField.cursorType             #Ibeam
editField.cursorForegroundColor  nil
editField.cursorBackgroundColor  Color white
ruler.backgroundColor            =scrollerVB

focusBorderWidth                 2
#if Display hasColors
focusColor                       =orange
#endif

framedBox.foregroundColor        Color white
framedBox.font                   =menuFont