|
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 |
;
|
|
242
|
13 |
; $Header: /cvs/stx/stx/libview/styles/greenPC.style,v 1.4 1995-11-22 23:03:42 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 |
|
|
|
32 |
comment 'like motif, with cute viewbackground\\not recommended for slow display servers.'
|
|
|
33 |
|
|
|
34 |
#if Display hasGreyscales
|
|
122
|
35 |
buttonActiveForegroundColor Color white
|
|
|
36 |
buttonActiveBackgroundColor =granite
|
|
|
37 |
buttonForegroundColor Color grey:80
|
|
|
38 |
buttonBackgroundColor =granite
|
|
|
39 |
|
|
|
40 |
labelForegroundColor Color black
|
|
|
41 |
|
|
|
42 |
arrowButtonActiveForegroundColor Color white
|
|
|
43 |
arrowButtonForegroundColor Color grey:80
|
|
|
44 |
|
|
|
45 |
scrollerThumbColor Color black
|
|
|
46 |
scrollerViewBackground =wooden
|
|
|
47 |
scrollerGhostColor =shadowColor
|
|
|
48 |
scrollerGhostLevel -1
|
|
|
49 |
|
|
|
50 |
selectionHilightFrameColor Color white
|
|
242
|
51 |
selectionDisabledForegroundColor Color grey:20 "need darker grey for more contrast"
|
|
122
|
52 |
|
|
|
53 |
menuViewBackground =wooden
|
|
|
54 |
menuHilightFrameColor Color white
|
|
|
55 |
menuHilightForegroundColor =wooden
|
|
|
56 |
menuHilightBackgroundColor Color black
|
|
242
|
57 |
|
|
|
58 |
editFieldBackgroundColor Color red:100 green:75 blue:75
|
|
122
|
59 |
#endif
|