|
4394
|
1 |
; View defaultStyle:#mswindows95
|
|
4124
|
2 |
;
|
|
4394
|
3 |
; $Header: /cvs/stx/stx/libview/styles/expecco.style,v 1.2 2005-06-27 10:34:22 cg Exp $
|
|
4124
|
4 |
|
|
|
5 |
comment 'win95/nt lookalike'
|
|
|
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 |
|
|
4394
|
15 |
name #win95
|
|
4124
|
16 |
|
|
|
17 |
;
|
|
|
18 |
; notice: the values below
|
|
|
19 |
; are not used when running under native Windows
|
|
|
20 |
; (uses system-settings values then)
|
|
|
21 |
;
|
|
4394
|
22 |
#if Screen current hasGreyscales
|
|
4124
|
23 |
|
|
|
24 |
selectionBlue (Color red:0 green:0 blue:50) exactOrNearestOn:(Screen current)
|
|
|
25 |
|
|
4394
|
26 |
; viewGrey (Color grey:67) exactOrNearestOn:(Screen current)
|
|
4124
|
27 |
viewGrey (Color grey:85) exactOrNearestOn:(Screen current)
|
|
4394
|
28 |
; viewLightGrey (Color grey:80) exactOrNearestOn:(Screen current)
|
|
|
29 |
viewLightGrey (Color grey:92) exactOrNearestOn:(Screen current)
|
|
4124
|
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
|
|
|
35 |
shadowColor (Color grey:33) exactOrNearestOn:(Screen current)
|
|
|
36 |
|
|
|
37 |
; shadowColor Color black
|
|
|
38 |
|
|
|
39 |
#else
|
|
|
40 |
|
|
|
41 |
selectionBlue Color black
|
|
|
42 |
viewGrey Color white
|
|
4394
|
43 |
viewLightGrey Color white
|
|
4124
|
44 |
lightColor Color grey:50
|
|
|
45 |
shadowColor Color black
|
|
|
46 |
|
|
|
47 |
#endif
|
|
|
48 |
|
|
|
49 |
#if Screen current platformName = 'WIN32'
|
|
|
50 |
|
|
|
51 |
selectionBlue [Screen current getSystemColor:#'COLOR_HIGHLIGHT']
|
|
|
52 |
menu.backgroundColor [Screen current getSystemColor:#'COLOR_MENU' ]
|
|
|
53 |
menu.foregroundColor [Screen current getSystemColor:#'COLOR_MENUTEXT' ]
|
|
|
54 |
pullDownMenu.backgroundColor =menu.backgroundColor
|
|
|
55 |
viewGrey [Screen current getSystemColor:#'COLOR_BTNFACE' ]
|
|
|
56 |
|
|
|
57 |
#endif
|
|
|
58 |
|
|
|
59 |
#include 'mswindows95.common'
|