122
|
1 |
; View defaultStyle:#motif2
|
|
2 |
;
|
|
3 |
; just a demo:
|
|
4 |
; like motif, but with different (red) menu-hilighting
|
|
5 |
;
|
1948
|
6 |
; $Header: /cvs/stx/stx/libview/styles/motif2.style,v 1.11 1997-11-02 19:48:58 cg Exp $
|
122
|
7 |
|
180
|
8 |
#if Display hasGreyscales
|
1857
|
9 |
viewGrey (Color grey:61) exactOrNearestOn:(Screen current)
|
|
10 |
lightColor (Color grey:84) exactOrNearestOn:(Screen current)
|
|
11 |
shadowColor (Color grey:33) exactOrNearestOn:(Screen current)
|
|
12 |
mediumColor (Color grey:52) exactOrNearestOn:(Screen current)
|
180
|
13 |
#else
|
|
14 |
viewGrey Color white
|
|
15 |
lightColor Color grey:25
|
|
16 |
shadowColor Color black
|
|
17 |
mediumColor Color grey:50.
|
|
18 |
#endif
|
122
|
19 |
|
|
20 |
#include 'motif.style'
|
|
21 |
|
1440
|
22 |
comment 'Fun style. Like `motif'' style.\\With changed menu & selection colors.'
|
309
|
23 |
|
|
24 |
#if (Language == #german) or:[Language == #de]
|
|
25 |
comment 'Wie `motif'', mit geänderten Farben für Menüs & Selektionen'
|
|
26 |
#endif
|
498
|
27 |
#if (Language == #french) or:[Language == #fr]
|
|
28 |
comment 'Comme `motif'', avec des couleurs differentes'
|
|
29 |
#endif
|
144
|
30 |
|
1948
|
31 |
menu.hilightForegroundColor Color white
|
|
32 |
menu.hilightBackgroundColor Color red
|
|
33 |
menu.hilightLevel 1
|
122
|
34 |
|
|
35 |
;
|
|
36 |
; and different selectionHilighting
|
|
37 |
; (if the following is uncommented)
|
|
38 |
;
|
|
39 |
|
1948
|
40 |
selection.hilightForegroundColor Color black
|
|
41 |
selection.hilightBackgroundColor Color green
|
|
42 |
selection.hilightStyle nil
|
|
43 |
selection.hilightLevel 1
|