122
|
1 |
; View defaultStyle:#rocky
|
|
2 |
;
|
|
3 |
; rock solid windows (flintstones ?)
|
|
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/rocky.style,v 1.7 2000-08-16 14:24:30 ca Exp $
|
122
|
9 |
|
|
10 |
#include 'motif.style'
|
|
11 |
|
1440
|
12 |
comment 'Fun style.\Like `motif'' - with rock solid views.\May be too dark on some VGA displays'
|
309
|
13 |
|
|
14 |
#if (Language == #german) or:[Language == #de]
|
|
15 |
comment 'Wie `motif'' - mit beinhartem Hintergrund.\\Auf vielen VGA Monitoren zu dunkel'
|
|
16 |
#endif
|
144
|
17 |
|
122
|
18 |
shadowColor Color black
|
|
19 |
lightColor Color lightGrey
|
|
20 |
|
3257
|
21 |
# viewBackground (Smalltalk imageFromFileNamed:'bitmaps/granite.tiff' inPackage:'stx:libwidg3')
|
|
22 |
viewBackground (Smalltalk imageFromFileNamed:'bitmaps/granite_small.tiff' inPackage:'stx:libwidg3')
|
2581
|
23 |
selection.backgroundColor =viewBackground
|
|
24 |
selection.disabledForegroundColor Color grey:10 "/ default grey is invisible on granite
|
|
25 |
selection.hilightBackgroundColor =viewBackground
|
|
26 |
selection.hilightForegroundColor Color white
|
122
|
27 |
|
2581
|
28 |
menu,viewBackgroundColor =viewBackground
|
|
29 |
menu.backgroundColor =viewBackground
|
|
30 |
menu.disabledForegroundColor Color grey:10 "/ default grey is invisible on granite
|
|
31 |
menu.hilightForegroundColor Color white
|
122
|
32 |
|
2581
|
33 |
scroller.viewBackground =viewBackground
|
|
34 |
button.activeBackgroundColor =viewBackground
|
|
35 |
button.activeForegroundColor Color white
|
|
36 |
button.disabledForegroundColor Color grey:10 "/ default grey is invisible on granite
|
122
|
37 |
|
2581
|
38 |
variablePanel.handleColor =lightColor
|
122
|
39 |
|