432
|
1 |
; View defaultStyle:#motif4
|
|
2 |
;
|
|
3 |
; another example for a tiny modification -
|
|
4 |
; motif style, but buttons highlight bluish
|
|
5 |
;
|
1948
|
6 |
; $Header: /cvs/stx/stx/libview/styles/motif4.style,v 1.4 1997-11-02 19:48:59 cg Exp $
|
432
|
7 |
|
|
8 |
#include 'motif.style'
|
|
9 |
|
|
10 |
comment 'like `motif'' style;\\with blueish active buttons'
|
|
11 |
|
498
|
12 |
#if (Language == #german) or:[Language == #de]
|
|
13 |
comment 'Wie `motif'', blau'
|
|
14 |
#endif
|
|
15 |
#if (Language == #french) or:[Language == #fr]
|
|
16 |
comment 'Comme `motif'', très bleu'
|
|
17 |
#endif
|
|
18 |
|
1948
|
19 |
button.activeBackgroundColor Color red:50 green:50 blue:100
|
432
|
20 |
|
1948
|
21 |
checkToggle.bitmapFile nil
|
|
22 |
checkToggle.style #fatcross
|
|
23 |
checkToggle.activeLevel -1
|
|
24 |
checkToggle.passiveLevel -1
|
|
25 |
checkToggle.borderWidth 0
|
|
26 |
checkToggle.activeBackgroundColor Color white
|
|
27 |
checkToggle.backgroundColor Color white
|
451
|
28 |
|
|
29 |
|
1948
|
30 |
scroller.ghostFrameColor nil
|
|
31 |
scroller.ghostColor Color grey:25
|
|
32 |
scroller.ghostLevel -1
|