|
122
|
1 |
; View defaultStyle:#rocky2
|
|
|
2 |
;
|
|
|
3 |
; more windows for wilma ...
|
|
|
4 |
; fun style; like motif, but with different view background
|
|
|
5 |
; needs some rework to make text readable in selectionInListViews
|
|
|
6 |
; and menus.
|
|
|
7 |
;
|
|
3257
|
8 |
; $Header: /cvs/stx/stx/libview/styles/oldStyles/rocky2.style,v 1.6 2000-08-16 14:24:30 ca Exp $
|
|
122
|
9 |
|
|
|
10 |
|
|
|
11 |
#include 'motif.style'
|
|
|
12 |
|
|
1440
|
13 |
comment 'Fun style.\Like `motif'' with rock solid views and changed\selection colors'
|
|
309
|
14 |
|
|
|
15 |
#if (Language == #german) or:[Language == #de]
|
|
|
16 |
comment 'Wie `motif'' mit beinhartem Hintergrund.\andere Farbe für Selektionen'
|
|
|
17 |
#endif
|
|
144
|
18 |
|
|
122
|
19 |
shadowColor Color black
|
|
|
20 |
lightColor Color lightGrey
|
|
|
21 |
|
|
3257
|
22 |
darkGranite (Smalltalk imageFromFileNamed:'bitmaps/granite2.tiff' inPackage:'stx:libwidg3')
|
|
|
23 |
#brightGranite (Smalltalk imageFromFileNamed:'bitmaps/granite.tiff' inPackage:'stx:libwidg3')
|
|
|
24 |
brightGranite (Smalltalk imageFromFileNamed:'bitmaps/granite_small.tiff' inPackage:'stx:libwidg3')
|
|
122
|
25 |
|
|
2581
|
26 |
viewBackground =brightGranite
|
|
122
|
27 |
|
|
2581
|
28 |
selection.backgroundColor =viewBackground
|
|
|
29 |
selection.foregroundColor Color white
|
|
|
30 |
selection.hilightBackgroundColor =darkGranite "/ Color red
|
|
|
31 |
selection.hilightForegroundColor Color white
|
|
|
32 |
selection.hilightLevel 1
|
|
|
33 |
selection.disabledForegroundColor Color grey:10 "/ default grey is invisible on granite
|
|
122
|
34 |
|
|
|
35 |
menuBackground =viewBackground
|
|
2581
|
36 |
menu.foregroundColor Color white
|
|
|
37 |
menu.backgroundColor =viewBackground
|
|
|
38 |
menu.hilightForegroundColor Color white
|
|
|
39 |
menu.hilightBackgroundColor Color red
|
|
|
40 |
menu.disabledForegroundColor Color grey:10 "/ default grey is invisible on granite
|
|
|
41 |
pullDownMenu.font =fatFont
|
|
122
|
42 |
|
|
2581
|
43 |
scroller.viewBackground =viewBackground
|
|
122
|
44 |
|
|
2581
|
45 |
button.activeForegroundColor Color white
|
|
|
46 |
button.activeBackgroundColor =darkGranite
|
|
|
47 |
button.foregroundColor Color grey:80
|
|
|
48 |
button.backgroundColor =viewBackground
|
|
|
49 |
button.disabledForegroundColor Color grey:10 "/ default grey is invisible on granite
|
|
|
50 |
|