author | Claus Gittinger <cg@exept.de> |
Mon, 15 Jul 2019 15:39:44 +0200 | |
changeset 8731 | 5506d148b369 |
parent 2991 | 918e2f570098 |
permissions | -rw-r--r-- |
1893 | 1 |
; View defaultStyle:#motif2 |
2 |
; |
|
3 |
; just a demo: |
|
4 |
; like motif, but with a brighter grey |
|
5 |
; |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1893
diff
changeset
|
6 |
; $Header: /cvs/stx/stx/libview/styles/motifLight.style,v 1.2 1999-10-27 13:28:03 stefan Exp $ |
1893 | 7 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1893
diff
changeset
|
8 |
#if Screen current hasGreyscales |
1893 | 9 |
viewGrey (Color grey:80) exactOrNearestOn:(Screen current) |
10 |
lightColor (Color grey:100) exactOrNearestOn:(Screen current) |
|
11 |
shadowColor (Color grey:50) exactOrNearestOn:(Screen current) |
|
12 |
mediumColor (Color grey:67) exactOrNearestOn:(Screen current) |
|
13 |
#else |
|
14 |
viewGrey Color white |
|
15 |
lightColor Color grey:25 |
|
16 |
shadowColor Color black |
|
17 |
mediumColor Color grey:50. |
|
18 |
#endif |
|
19 |
||
20 |
#include 'motif.common' |
|
21 |
||
22 |
comment 'Like `motif'' style.\\With brighter viewBackground.' |
|
23 |
||
24 |
#if (Language == #german) or:[Language == #de] |
|
25 |
comment 'Wie `motif'', mit hellerem Hintergrund' |
|
26 |
#endif |
|
27 |
#if (Language == #french) or:[Language == #fr] |
|
28 |
comment 'Comme `motif'', avec des couleurs differentes' |
|
29 |
#endif |
|
30 |