author | Claus Gittinger <cg@exept.de> |
Mon, 11 Aug 1997 13:55:36 +0200 | |
changeset 1853 | c3d87b4f6051 |
parent 1440 | 114c32a3d0ea |
child 1857 | 854b5ec3c7b9 |
permissions | -rw-r--r-- |
122 | 1 |
; View defaultStyle:#motif2 |
2 |
; |
|
3 |
; just a demo: |
|
4 |
; like motif, but with different (red) menu-hilighting |
|
5 |
; |
|
1853
c3d87b4f6051
use nearest colors to avoid dithered view backgrounds
Claus Gittinger <cg@exept.de>
parents:
1440
diff
changeset
|
6 |
; $Header: /cvs/stx/stx/libview/styles/motif2.style,v 1.9 1997-08-11 11:55:32 cg Exp $ |
122 | 7 |
|
180 | 8 |
#if Display hasGreyscales |
1853
c3d87b4f6051
use nearest colors to avoid dithered view backgrounds
Claus Gittinger <cg@exept.de>
parents:
1440
diff
changeset
|
9 |
viewGrey (Color grey:61) nearestOn:(Screen current) |
c3d87b4f6051
use nearest colors to avoid dithered view backgrounds
Claus Gittinger <cg@exept.de>
parents:
1440
diff
changeset
|
10 |
lightColor (Color grey:84) nearestOn:(Screen current) |
c3d87b4f6051
use nearest colors to avoid dithered view backgrounds
Claus Gittinger <cg@exept.de>
parents:
1440
diff
changeset
|
11 |
shadowColor (Color grey:33) nearestOn:(Screen current) |
c3d87b4f6051
use nearest colors to avoid dithered view backgrounds
Claus Gittinger <cg@exept.de>
parents:
1440
diff
changeset
|
12 |
mediumColor (Color grey:52) nearestOn:(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 |
|
122 | 31 |
menuHilightForegroundColor Color white |
32 |
menuHilightBackgroundColor Color red |
|
33 |
menuHilightLevel 1 |
|
34 |
||
35 |
; |
|
36 |
; and different selectionHilighting |
|
37 |
; (if the following is uncommented) |
|
38 |
; |
|
39 |
||
534
ae5caa947d14
better motif-style selectionInListView highlighting
Claus Gittinger <cg@exept.de>
parents:
498
diff
changeset
|
40 |
selectionHilightForegroundColor Color black |
ae5caa947d14
better motif-style selectionInListView highlighting
Claus Gittinger <cg@exept.de>
parents:
498
diff
changeset
|
41 |
selectionHilightBackgroundColor Color green |
ae5caa947d14
better motif-style selectionInListView highlighting
Claus Gittinger <cg@exept.de>
parents:
498
diff
changeset
|
42 |
selectionHilightStyle nil |
ae5caa947d14
better motif-style selectionInListView highlighting
Claus Gittinger <cg@exept.de>
parents:
498
diff
changeset
|
43 |
selectionHilightLevel 1 |