author | Stefan Vogel <sv@exept.de> |
Tue, 26 Oct 1999 19:54:09 +0200 | |
changeset 2981 | 8d92596d703d |
parent 2965 | 063920a0e4c6 |
child 2982 | b52d24260115 |
permissions | -rw-r--r-- |
2571 | 1 |
; View defaultStyle:#'decWindows' |
2 |
; |
|
3 |
; dec's motif style (as seen on an OSF-alpha system) |
|
4 |
; like motif |
|
5 |
; |
|
6 |
; |
|
2981
8d92596d703d
Fix Dispalay usage (support nil displays).
Stefan Vogel <sv@exept.de>
parents:
2965
diff
changeset
|
7 |
; $Header: /cvs/stx/stx/libview/styles/decWindows.style,v 1.5 1999-10-26 17:54:08 stefan Exp $ |
2571 | 8 |
|
2981
8d92596d703d
Fix Dispalay usage (support nil displays).
Stefan Vogel <sv@exept.de>
parents:
2965
diff
changeset
|
9 |
#if Display isNil or:[Display hasGreyscales] |
2571 | 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 |
|
2981
8d92596d703d
Fix Dispalay usage (support nil displays).
Stefan Vogel <sv@exept.de>
parents:
2965
diff
changeset
|
14 |
#if Display isNil or:[Display hasColors] |
2571 | 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 |
||
2965
063920a0e4c6
Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents:
2812
diff
changeset
|
22 |
selectionFont Font family:'lucidabright' face:'medium' style:'roman' size:14 |
063920a0e4c6
Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents:
2812
diff
changeset
|
23 |
labelFont Font family:'lucidabright' face:'medium' style:'roman' size:14 |
063920a0e4c6
Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents:
2812
diff
changeset
|
24 |
menuFont Font family:'lucidabright' face:'medium' style:'roman' size:14 |
063920a0e4c6
Use 14-point fonts for decWindows style
Stefan Vogel <sv@exept.de>
parents:
2812
diff
changeset
|
25 |
textFont Font family:'courier' size:14 |
2571 | 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 |
|
2981
8d92596d703d
Fix Dispalay usage (support nil displays).
Stefan Vogel <sv@exept.de>
parents:
2965
diff
changeset
|
98 |
#if Display isNil or:[Display hasColors] |
2571 | 99 |
focusColor =orange |
100 |
#endif |
|
101 |
||
102 |
framedBox.foregroundColor Color white |
|
103 |
framedBox.font =menuFont |