author | ca |
Fri, 25 Oct 2002 13:28:17 +0200 | |
changeset 3750 | e410988ac7ca |
parent 3734 | cf884e1635f8 |
child 4312 | 0d265a8b7787 |
permissions | -rw-r--r-- |
2100 | 1 |
; View defaultStyle:#mswindows95 |
2 |
; |
|
3750 | 3 |
; $Header: /cvs/stx/stx/libview/styles/mswindows95.style,v 1.45 2002-10-25 11:28:17 ca Exp $ |
2100 | 4 |
|
3725 | 5 |
comment 'win95/nt lookalike' |
2100 | 6 |
|
7 |
#if (Language == #german) or:[Language == #de] |
|
8 |
comment 'an MS Windows95 angelehnter Stil' |
|
9 |
#endif |
|
10 |
||
11 |
#if (Language == #french) or:[Language == #fr] |
|
12 |
comment 'Un style qui résemble MS Windows95' |
|
13 |
#endif |
|
14 |
||
15 |
name #win95 |
|
16 |
||
2542 | 17 |
; |
18 |
; notice: the values below |
|
19 |
; are not used when running under native Windows |
|
20 |
; (uses system-settings values then) |
|
21 |
; |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2629
diff
changeset
|
22 |
#if Screen current hasGreyscales |
2307
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
23 |
|
2100 | 24 |
selectionBlue (Color red:0 green:0 blue:50) exactOrNearestOn:(Screen current) |
25 |
||
26 |
; viewGrey (Color grey:67) exactOrNearestOn:(Screen current) |
|
27 |
viewGrey (Color grey:77) exactOrNearestOn:(Screen current) |
|
28 |
; viewLightGrey (Color grey:80) exactOrNearestOn:(Screen current) |
|
29 |
viewLightGrey (Color grey:90) exactOrNearestOn:(Screen current) |
|
30 |
lightColor Color white |
|
31 |
halfShadowColor (Color grey:33) exactOrNearestOn:(Screen current) |
|
32 |
; halfLightColor (Color grey:67) exactOrNearestOn:(Screen current) |
|
33 |
; halfLightColor Color white "/ grey:67 |
|
34 |
halfLightColor =viewGrey |
|
3728 | 35 |
shadowColor (Color grey:33) exactOrNearestOn:(Screen current) |
36 |
||
37 |
; shadowColor Color black |
|
2307
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
38 |
|
2100 | 39 |
#else |
2307
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
40 |
|
2100 | 41 |
selectionBlue Color black |
42 |
viewGrey Color white |
|
43 |
viewLightGrey Color white |
|
44 |
lightColor Color grey:50 |
|
3728 | 45 |
shadowColor Color black |
2307
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
46 |
|
2100 | 47 |
#endif |
48 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2629
diff
changeset
|
49 |
#if Screen current platformName = 'WIN32' |
2307
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
50 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2629
diff
changeset
|
51 |
selectionBlue [Screen current getSystemColor:#'COLOR_HIGHLIGHT'] |
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2629
diff
changeset
|
52 |
menu.backgroundColor [Screen current getSystemColor:#'COLOR_MENU' ] |
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2629
diff
changeset
|
53 |
menu.foregroundColor [Screen current getSystemColor:#'COLOR_MENUTEXT' ] |
2307
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
54 |
pullDownMenu.backgroundColor =menu.backgroundColor |
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2629
diff
changeset
|
55 |
viewGrey [Screen current getSystemColor:#'COLOR_BTNFACE' ] |
2307
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
56 |
|
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
57 |
#endif |
c61ba06af749
if running under native windows, use the systemColors
Claus Gittinger <cg@exept.de>
parents:
2258
diff
changeset
|
58 |
|
3750 | 59 |
#include 'mswindows95.common' |