122
|
1 |
; View defaultStyle:#greenPC
|
|
2 |
;
|
242
|
3 |
; green PC - living in a box -- recycle you windows :-)
|
122
|
4 |
;
|
242
|
5 |
; I guess, you have never seen smalltalk views as charming as this ...
|
122
|
6 |
;
|
|
7 |
; fun style; like motif, but with different viewbackground
|
|
8 |
; this style does not work on B&W displays
|
|
9 |
;
|
|
10 |
; On my SGI, this one looks great; on VGA's, the colors come out
|
|
11 |
; a bit too dark.
|
|
12 |
;
|
1440
|
13 |
; $Header: /cvs/stx/stx/libview/styles/greenPC.style,v 1.6 1997-03-07 11:07:02 cg Exp $
|
144
|
14 |
|
122
|
15 |
#if Display hasGreyscales
|
|
16 |
wooden (Image fromFile:'bitmaps/wood2H.tiff')
|
|
17 |
granite (Image fromFile:'bitmaps/granite.tiff')
|
|
18 |
|
|
19 |
viewGrey =wooden
|
|
20 |
viewBackground =wooden
|
|
21 |
|
|
22 |
woodColor =wooden averageColorIn:(0@0 corner:9@9)
|
|
23 |
; woodColor Color red:58 green:48 blue:8
|
|
24 |
|
|
25 |
lightColor =woodColor lightened
|
|
26 |
shadowColor =woodColor darkened darkened
|
180
|
27 |
mediumColor =woodColor darkened
|
|
28 |
#endif
|
122
|
29 |
|
180
|
30 |
#include 'motif.common'
|
|
31 |
|
1440
|
32 |
comment 'Fun style.\Like motif, with cute (back to nature) viewbackground.\Not recommended for slow display servers.'
|
180
|
33 |
|
309
|
34 |
#if (Language == #german) or:[Language == #de]
|
1440
|
35 |
comment 'Wie ''motif'', mit geändertem (zurück zur Natur) Hintergrund.\\Nicht sinnvoll bei langsamen Maschinen.'
|
309
|
36 |
#endif
|
|
37 |
|
180
|
38 |
#if Display hasGreyscales
|
122
|
39 |
buttonActiveForegroundColor Color white
|
|
40 |
buttonActiveBackgroundColor =granite
|
|
41 |
buttonForegroundColor Color grey:80
|
|
42 |
buttonBackgroundColor =granite
|
|
43 |
|
|
44 |
labelForegroundColor Color black
|
|
45 |
|
|
46 |
arrowButtonActiveForegroundColor Color white
|
|
47 |
arrowButtonForegroundColor Color grey:80
|
|
48 |
|
|
49 |
scrollerThumbColor Color black
|
|
50 |
scrollerViewBackground =wooden
|
|
51 |
scrollerGhostColor =shadowColor
|
|
52 |
scrollerGhostLevel -1
|
|
53 |
|
|
54 |
selectionHilightFrameColor Color white
|
242
|
55 |
selectionDisabledForegroundColor Color grey:20 "need darker grey for more contrast"
|
122
|
56 |
|
|
57 |
menuViewBackground =wooden
|
|
58 |
menuHilightFrameColor Color white
|
|
59 |
menuHilightForegroundColor =wooden
|
|
60 |
menuHilightBackgroundColor Color black
|
242
|
61 |
|
|
62 |
editFieldBackgroundColor Color red:100 green:75 blue:75
|
122
|
63 |
#endif
|