3720
|
1 |
; View defaultStyle:#mswindowsXP
|
|
2 |
;
|
3722
|
3 |
; $Header: /cvs/stx/stx/libview/styles/mswindowsXP.style,v 1.2 2002-09-05 17:20:08 cg Exp $
|
3720
|
4 |
|
|
5 |
name #winXP
|
|
6 |
|
|
7 |
;
|
|
8 |
; for now, much like win95, except for some menuPanel details
|
|
9 |
; (animated menu-popup is not yet implemented; but, who likes it ?)
|
|
10 |
;
|
|
11 |
.
|
|
12 |
#include 'mswindows95.style'
|
|
13 |
|
|
14 |
comment 'winXP lookalike'
|
|
15 |
|
|
16 |
#if (Language == #german) or:[Language == #de]
|
|
17 |
comment 'an MS WindowsXP angelehnter Stil'
|
|
18 |
#endif
|
|
19 |
|
|
20 |
#if (Language == #french) or:[Language == #fr]
|
|
21 |
comment 'Un style qui résemble MS WindowsXP'
|
|
22 |
#endif
|
|
23 |
|
|
24 |
menu.enteredLevel 0
|
3722
|
25 |
;; enable this, when old menuView cares for it also
|
|
26 |
;; menu.itemMargin 1
|
3720
|
27 |
menu.selectionFollowsMouse true
|
|
28 |
menu.enteredBackgroundColor =menu.hilightBackgroundColor
|
|
29 |
menu.enteredForegroundColor =menu.hilightForegroundColor
|