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