|
122
|
1 |
; View defaultStyle:#greenPC
|
|
|
2 |
;
|
|
|
3 |
; green PC - recycle you windows :-)
|
|
|
4 |
;
|
|
|
5 |
; I guess, you have never seen smalltalk views as charming as those ...
|
|
|
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 |
;
|
|
|
13 |
; $Header: /cvs/stx/stx/libview/styles/greenPC.style,v 1.1 1995-03-23 16:54:38 claus Exp $
|
|
|
14 |
|
|
|
15 |
#include 'motif.style'
|
|
|
16 |
|
|
|
17 |
#if Display hasGreyscales
|
|
|
18 |
wooden (Image fromFile:'bitmaps/wood2H.tiff')
|
|
|
19 |
granite (Image fromFile:'bitmaps/granite.tiff')
|
|
|
20 |
|
|
|
21 |
viewGrey =wooden
|
|
|
22 |
viewBackground =wooden
|
|
|
23 |
|
|
|
24 |
woodColor =wooden averageColorIn:(0@0 corner:9@9)
|
|
|
25 |
; woodColor Color red:58 green:48 blue:8
|
|
|
26 |
|
|
|
27 |
lightColor =woodColor lightened
|
|
|
28 |
shadowColor =woodColor darkened darkened
|
|
|
29 |
|
|
|
30 |
buttonActiveForegroundColor Color white
|
|
|
31 |
buttonActiveBackgroundColor =granite
|
|
|
32 |
buttonForegroundColor Color grey:80
|
|
|
33 |
buttonBackgroundColor =granite
|
|
|
34 |
|
|
|
35 |
labelForegroundColor Color black
|
|
|
36 |
|
|
|
37 |
arrowButtonActiveForegroundColor Color white
|
|
|
38 |
arrowButtonForegroundColor Color grey:80
|
|
|
39 |
|
|
|
40 |
scrollerThumbColor Color black
|
|
|
41 |
scrollerViewBackground =wooden
|
|
|
42 |
scrollerGhostColor =shadowColor
|
|
|
43 |
scrollerGhostLevel -1
|
|
|
44 |
|
|
|
45 |
selectionHilightFrameColor Color white
|
|
|
46 |
selectionDisabledForegroundColor Color darkGrey "need darker grey for more contrast"
|
|
|
47 |
|
|
|
48 |
menuViewBackground =wooden
|
|
|
49 |
menuHilightFrameColor Color white
|
|
|
50 |
menuHilightForegroundColor =wooden
|
|
|
51 |
menuHilightBackgroundColor Color black
|
|
|
52 |
#endif
|
|
|
53 |
|
|
|
54 |
|
|
|
55 |
|