2571
|
1 |
; View defaultStyle:#'decWindows'
|
|
2 |
;
|
|
3 |
; dec's motif style (as seen on an OSF-alpha system)
|
|
4 |
; like motif
|
|
5 |
;
|
|
6 |
;
|
2812
|
7 |
; $Header: /cvs/stx/stx/libview/styles/decWindows.style,v 1.3 1999-07-27 16:25:47 cg Exp $
|
2571
|
8 |
|
|
9 |
#if Display hasGreyscales
|
|
10 |
viewGrey (Color grey:59.6078)
|
|
11 |
scrollerVB (Color grey:50.1961)
|
|
12 |
selectionInListColor (Color red:40.7843 green:42.3529 blue:50.1961)
|
|
13 |
#endif
|
|
14 |
#if Display hasColors
|
|
15 |
orange (Color red:90.9804 green:65.8824 blue:43.9216)
|
|
16 |
#endif
|
|
17 |
|
|
18 |
shadowColor (Color grey:50.1961)
|
|
19 |
lightColor (Color grey:81.5686)
|
|
20 |
mediumColor (Color grey:59.6078)
|
|
21 |
|
|
22 |
selectionFont Font family:'lucidabright' face:'medium' style:'roman' size:12
|
|
23 |
labelFont Font family:'lucidabright' face:'medium' style:'roman' size:12
|
|
24 |
menuFont Font family:'lucidabright' face:'medium' style:'roman' size:12
|
|
25 |
textFont Font family:'courier' size:12
|
|
26 |
|
|
27 |
#include 'motif.common'
|
|
28 |
|
|
29 |
comment 'DEC-windows look alike'
|
|
30 |
|
|
31 |
#if (Language == #german) or:[Language == #de]
|
|
32 |
comment 'Angelehnt an DEC-windows.'
|
|
33 |
#endif
|
|
34 |
#if (Language == #french) or:[Language == #fr]
|
|
35 |
comment 'Comme DEC-windows'
|
|
36 |
#endif
|
|
37 |
|
|
38 |
lightColor Color grey:85
|
|
39 |
shadowColor Color grey:30
|
|
40 |
|
|
41 |
textCursor.type #block
|
|
42 |
|
|
43 |
scroller.viewBackground =scrollerVB
|
|
44 |
scroller.thumbColor =viewGrey
|
|
45 |
scroller.thumbLevel 1
|
|
46 |
scrollBar.level -1
|
|
47 |
|
|
48 |
selection.foregroundColor Color black
|
|
49 |
|
|
50 |
label.foregroundColor Color black
|
|
51 |
|
|
52 |
button.activeBackgroundColor =scrollerVB
|
|
53 |
button.foregroundColor Color white
|
|
54 |
button.activeForegroundColor Color white
|
|
55 |
button.activeLevel -1
|
|
56 |
button.passiveLevel 1
|
|
57 |
button.font =menuFont
|
|
58 |
|
|
59 |
label.font =menuFont
|
|
60 |
label.foregroundColor Color white
|
|
61 |
|
|
62 |
arrowButton.activeForegroundColor =viewGrey
|
|
63 |
|
|
64 |
checkToggle.bitmapFile 'CheckOn14Dec.xbm'
|
|
65 |
checkToggle.activeBackgroundColor =scrollerVB
|
|
66 |
checkToggle.backgroundColor =viewGrey
|
|
67 |
checkToggle.disabledForegroundColor Color gray:33
|
|
68 |
checkToggle.activeLevel -1
|
|
69 |
checkBoxStyle #dummy
|
|
70 |
|
|
71 |
menu.viewBackgroundColor =viewGrey
|
|
72 |
menu.backgroundColor =viewGrey
|
|
73 |
menu.foregroundColor Color white
|
|
74 |
menu.disabledForegroundColor Color darkGrey
|
|
75 |
; menu.hilightLevel -1
|
|
76 |
; menu.hilightFrameColor nil
|
|
77 |
|
|
78 |
selection.backgroundColor =selectionInListColor
|
|
79 |
selection.foregroundColor Color white
|
|
80 |
selection.hilightForegroundColor =selectionInListColor
|
|
81 |
selection.hilightBackgroundColor Color white
|
|
82 |
; selection.hilightFrameColor =orange
|
|
83 |
selection.hilightFrameColor nil
|
|
84 |
selection.font =menuFont
|
2803
|
85 |
selection.disabledForegroundColor Color gray:25
|
2571
|
86 |
|
|
87 |
editField.backgroundColor =selectionInListColor
|
|
88 |
editField.foregroundColor Color white
|
|
89 |
editField.hilightForegroundColor =selectionInListColor
|
|
90 |
editField.hilightBackgroundColor Color white
|
|
91 |
editField.cursorType #Ibeam
|
|
92 |
editField.cursorForegroundColor nil
|
|
93 |
editField.cursorBackgroundColor Color white
|
2812
|
94 |
editField.disabledForegroundColor Color gray:33
|
2571
|
95 |
ruler.backgroundColor =scrollerVB
|
|
96 |
|
|
97 |
focusBorderWidth 2
|
|
98 |
#if Display hasColors
|
|
99 |
focusColor =orange
|
|
100 |
#endif
|
|
101 |
|
|
102 |
framedBox.foregroundColor Color white
|
|
103 |
framedBox.font =menuFont
|