; 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