; 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.9 2000-10-27 17:57:39 stefan Exp $

#if Screen current isNil or:[Screen current hasGreyscales]
viewGrey                    (Color grey:60) "/ (Color grey:59.6078) 
scrollerVB                  (Color grey:50) "/ (Color grey:50.1961)
selectionInListColor        (Color grey:66.7)
#endif

#if Screen current isNil or:[Screen current hasColors]
orange                      (Color red:90.9804 green:65.8824 blue:43.9216)
#endif

shadowColor                 (Color grey:50 "50.1961")
lightColor                  (Color grey:81 "81.5686")
mediumColor                 (Color grey:60 "59.6078")

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

#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

textForeground            Color black
; textForeground Color white

lightColor                Color grey:85
shadowColor               Color grey:25 "/ Color grey:30

textCursor.type            #block

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

selection.foregroundColor  Color black

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

label.font                       =menuFont
label.foregroundColor            =textForeground

arrowButton.activeForegroundColor =viewGrey  

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

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

selection.backgroundColor        =selectionInListColor
selection.foregroundColor        =textForeground
selection.hilightForegroundColor Color black
selection.hilightBackgroundColor Color white
; selection.hilightFrameColor      =orange
selection.hilightFrameColor      nil
selection.font                   =menuFont
selection.disabledForegroundColor     Color grey:25

editField.backgroundColor        =selectionInListColor
editField.foregroundColor        =textForeground
editField.hilightForegroundColor Color black
editField.hilightBackgroundColor Color white
editField.cursorType             #Ibeam
editField.cursorForegroundColor  nil
editField.cursorBackgroundColor  Color white
editField.disabledForegroundColor  Color grey:33
ruler.backgroundColor            =scrollerVB

focusBorderWidth                 2
#if Screen current isNil or:[Screen current hasColors]
focusColor                       =orange
#endif

framedBox.foregroundColor        =textForeground
framedBox.font                   =menuFont