author | Claus Gittinger <cg@exept.de> |
Mon, 19 Aug 2002 18:26:47 +0200 | |
changeset 3702 | 39cb49a47bc1 |
parent 3257 | 614ad81c445b |
child 6244 | e052fc7783f9 |
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 |
; |
|
3702 | 13 |
; $Header: /cvs/stx/stx/libview/styles/greenPC.style,v 1.9 2002-08-19 16:26:47 cg 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 |
3702 | 28 |
|
180 | 29 |
#endif |
122 | 30 |
|
180 | 31 |
#include 'motif.common' |
32 |
||
1440 | 33 |
comment 'Fun style.\Like motif, with cute (back to nature) viewbackground.\Not recommended for slow display servers.' |
180 | 34 |
|
309 | 35 |
#if (Language == #german) or:[Language == #de] |
1440 | 36 |
comment 'Wie ''motif'', mit geändertem (zurück zur Natur) Hintergrund.\\Nicht sinnvoll bei langsamen Maschinen.' |
309 | 37 |
#endif |
38 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1440
diff
changeset
|
39 |
#if Screen current hasGreyscales |
3702 | 40 |
button.activeForegroundColor Color white |
41 |
button.activeBackgroundColor =granite |
|
42 |
button.foregroundColor Color grey:80 |
|
43 |
button.backgroundColor =granite |
|
44 |
||
45 |
radioButton.backgroundColor =wooden |
|
46 |
radioButton.foregroundColor Color black "Color grey:80" |
|
122 | 47 |
|
3702 | 48 |
label.foregroundColor Color black |
49 |
||
50 |
arrowButton.activeForegroundColor Color white |
|
51 |
arrowButton.foregroundColor Color grey:80 |
|
122 | 52 |
|
3702 | 53 |
scroller.thumbColor =granite "Color black" |
54 |
scroller.viewBackground =wooden |
|
55 |
scroller.ghostColor =shadowColor |
|
56 |
scroller.ghostLevel -1 |
|
122 | 57 |
|
3702 | 58 |
selection.hilightFrameColor Color white |
59 |
; selection.disabledForegroundColor Color grey:20 "need darker grey for more contrast" |
|
60 |
selection.disabledForegroundColor =woodColor lightened |
|
61 |
menu.disabledForegroundColor =woodColor lightened |
|
62 |
button.disabledForegroundColor =woodColor lightened |
|
122 | 63 |
|
3702 | 64 |
menu.viewBackground =wooden |
65 |
menu.hilightFrameColor Color white |
|
66 |
menu.hilightForegroundColor =wooden |
|
67 |
menu.hilightBackgroundColor Color black |
|
242 | 68 |
|
3702 | 69 |
; editField.backgroundColor Color red:100 green:75 blue:75 |
70 |
editField.backgroundColor =woodColor lightened lightened |
|
71 |
||
72 |
html.backgroundColor =woodColor lightened lightened lightened |
|
73 |
html.anchorForegroundColor =woodColor darkened |
|
74 |
html.visitedAnchorForegroundColor =woodColor |
|
75 |
||
122 | 76 |
#endif |