author | Claus Gittinger <cg@exept.de> |
Fri, 20 Jan 2017 23:06:27 +0100 | |
changeset 7778 | b88c63d76636 |
parent 2991 | 918e2f570098 |
permissions | -rw-r--r-- |
122 | 1 |
; View defaultStyle:#motif2 |
2 |
; |
|
3 |
; just a demo: |
|
4 |
; like motif, but with different (red) menu-hilighting |
|
5 |
; |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1948
diff
changeset
|
6 |
; $Header: /cvs/stx/stx/libview/styles/motif2.style,v 1.12 1999-10-27 13:28:02 stefan Exp $ |
122 | 7 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1948
diff
changeset
|
8 |
#if Screen current 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 |