author | ca |
Wed, 16 Aug 2000 16:24:30 +0200 | |
changeset 3257 | 614ad81c445b |
parent 2991 | 918e2f570098 |
child 3702 | 39cb49a47bc1 |
permissions | -rw-r--r-- |
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 |
; |
|
3257 | 13 |
; $Header: /cvs/stx/stx/libview/styles/greenPC.style,v 1.8 2000-08-16 14:24:30 ca Exp $ |
144 | 14 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1440
diff
changeset
|
15 |
#if Screen current hasGreyscales |
3257 | 16 |
wooden (Smalltalk imageFromFileNamed:'bitmaps/wood2H.tiff' inPackage:'stx:libwidg3') |
17 |
granite (Smalltalk imageFromFileNamed:'bitmaps/granite.tiff' inPackage:'stx:libwidg3') |
|
122 | 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 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1440
diff
changeset
|
38 |
#if Screen current 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 |