author | Stefan Vogel <sv@exept.de> |
Wed, 05 Feb 2020 13:55:32 +0100 | |
changeset 8985 | b4d006b79f84 |
parent 8938 | 88798c037ec1 |
permissions | -rw-r--r-- |
6244 | 1 |
; View defaultStyle:#greenPC |
122 | 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 |
; |
|
8938 | 13 |
; $Header$ |
6244 | 14 |
|
15 |
previewFileName 'viewStyleSample_greenpc.png' |
|
144 | 16 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1440
diff
changeset
|
17 |
#if Screen current hasGreyscales |
3257 | 18 |
wooden (Smalltalk imageFromFileNamed:'bitmaps/wood2H.tiff' inPackage:'stx:libwidg3') |
6623 | 19 |
granite (Smalltalk imageFromFileNamed:'bitmaps/granite3.tiff' inPackage:'stx:libwidg3') |
122 | 20 |
|
6251 | 21 |
graniteLight = granite lightened |
22 |
||
122 | 23 |
viewGrey =wooden |
24 |
viewBackground =wooden |
|
25 |
||
26 |
woodColor =wooden averageColorIn:(0@0 corner:9@9) |
|
6251 | 27 |
graniteColor =granite averageColorIn:(0@0 corner:9@9) |
122 | 28 |
; woodColor Color red:58 green:48 blue:8 |
29 |
||
30 |
lightColor =woodColor lightened |
|
31 |
shadowColor =woodColor darkened darkened |
|
6244 | 32 |
mediumColor =woodColor darkened |
3702 | 33 |
|
180 | 34 |
#endif |
122 | 35 |
|
180 | 36 |
#include 'motif.common' |
37 |
||
8938 | 38 |
comment 'Fun style; "motif", with cute, back to nature view background (all recyclable materials).\Not recommended for slow display servers.' |
180 | 39 |
|
6251 | 40 |
name #greenPC |
41 |
||
309 | 42 |
#if (Language == #german) or:[Language == #de] |
8938 | 43 |
comment 'Fun Style; "motif" mit geändertem Hintergrund (zurück zur Natur, alles erneuerbar).\\Nicht sinnvoll bei langsamen Maschinen.' |
309 | 44 |
#endif |
45 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1440
diff
changeset
|
46 |
#if Screen current hasGreyscales |
3702 | 47 |
button.activeForegroundColor Color white |
6244 | 48 |
button.activeBackgroundColor =granite |
3702 | 49 |
button.foregroundColor Color grey:80 |
6244 | 50 |
button.backgroundColor =granite |
6251 | 51 |
button.disabledBackgroundColor =graniteLight |
3702 | 52 |
|
6244 | 53 |
radioButton.backgroundColor =wooden |
54 |
radioButton.foregroundColor Color black "Color grey:80" |
|
122 | 55 |
|
3702 | 56 |
label.foregroundColor Color black |
57 |
||
58 |
arrowButton.activeForegroundColor Color white |
|
59 |
arrowButton.foregroundColor Color grey:80 |
|
122 | 60 |
|
3702 | 61 |
scroller.thumbColor =granite "Color black" |
62 |
scroller.viewBackground =wooden |
|
63 |
scroller.ghostColor =shadowColor |
|
64 |
scroller.ghostLevel -1 |
|
122 | 65 |
|
3702 | 66 |
selection.hilightFrameColor Color white |
6251 | 67 |
selection.hilightForegroundColor (Color yellow) |
68 |
; selection.hilightBackgroundColor (Color rgbValue:16rDFF0F8) |
|
3702 | 69 |
; selection.disabledForegroundColor Color grey:20 "need darker grey for more contrast" |
70 |
selection.disabledForegroundColor =woodColor lightened |
|
6251 | 71 |
selection.hilightStyle #motifgreen |
3702 | 72 |
menu.disabledForegroundColor =woodColor lightened |
73 |
button.disabledForegroundColor =woodColor lightened |
|
122 | 74 |
|
3702 | 75 |
menu.viewBackground =wooden |
76 |
menu.hilightFrameColor Color white |
|
6251 | 77 |
menu.hilightForegroundColor (Color yellow) |
3702 | 78 |
menu.hilightBackgroundColor Color black |
242 | 79 |
|
3702 | 80 |
; editField.backgroundColor Color red:100 green:75 blue:75 |
81 |
editField.backgroundColor =woodColor lightened lightened |
|
82 |
||
83 |
html.backgroundColor =woodColor lightened lightened lightened |
|
84 |
html.anchorForegroundColor =woodColor darkened |
|
85 |
html.visitedAnchorForegroundColor =woodColor |
|
86 |
||
122 | 87 |
#endif |