530
|
1 |
; View defaultStyle:#xaw3d
|
|
2 |
;
|
|
3 |
; another example for a tiny modification -
|
|
4 |
; motif look-alike xaw3d style
|
|
5 |
;
|
1951
|
6 |
; $Header: /cvs/stx/stx/libview/styles/xaw3d.style,v 1.4 1997-11-03 16:43:15 cg Exp $
|
530
|
7 |
|
|
8 |
#include 'motif.style'
|
|
9 |
|
|
10 |
comment '`xaw3d'' lookalike style'
|
|
11 |
|
|
12 |
#if (Language == #german) or:[Language == #de]
|
|
13 |
comment 'Wie `xaw3d'''
|
|
14 |
#endif
|
|
15 |
#if (Language == #french) or:[Language == #fr]
|
|
16 |
comment 'Comme `xaw3d'''
|
|
17 |
#endif
|
|
18 |
|
1951
|
19 |
checkToggle.bitmapFile nil
|
|
20 |
checkToggle.style #fatcross
|
|
21 |
checkToggle.activeLevel -1
|
|
22 |
checkToggle.passiveLevel -1
|
|
23 |
checkToggle.borderWidth 0
|
|
24 |
checkToggle.activeBackgroundColor Color white
|
|
25 |
checkToggle.backgroundColor Color white
|
|
26 |
checkToggle.foregroundColor Color black
|
|
27 |
checkToggle.activeForegroundColor Color black
|
530
|
28 |
|
1951
|
29 |
button.activeForegroundColor Color white
|
|
30 |
button.activeBackgroundColor Color black
|
530
|
31 |
|
1951
|
32 |
scroller.ghostFrameColor nil
|
|
33 |
#scroller.ghostColor Color grey:25
|
|
34 |
#scroller.ghostLevel -1
|
|
35 |
scroller.thumbActiveLevel -2
|