author | Stefan Vogel <sv@exept.de> |
Wed, 05 Feb 2020 13:55:32 +0100 | |
changeset 8985 | b4d006b79f84 |
parent 8948 | 64b7075196d5 |
permissions | -rw-r--r-- |
7307
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
1 |
; View defaultStyle:#mswindows8 |
6012 | 2 |
; |
7307
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
3 |
; $Header$ |
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
4 |
|
8944 | 5 |
name #win8 |
6 |
comment 'Windows8 lookalike (unfinished)' |
|
7 |
previewFileName 'viewStyleSample_win8.png' |
|
6012 | 8 |
|
7307
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
9 |
#if (Language == #german) or:[Language == #de] |
8944 | 10 |
comment 'an Windows8 angelehnter Stil (unvollständig)' |
7307
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
11 |
#endif |
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
12 |
|
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
13 |
#if (Language == #french) or:[Language == #fr] |
8944 | 14 |
comment 'Un style qui résemble Windows8 (incomplet)' |
7307
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
15 |
#endif |
7584be17c465
Do noz use blocks for constants
Stefan Vogel <sv@exept.de>
parents:
6015
diff
changeset
|
16 |
|
6012 | 17 |
|
8946 | 18 |
iconLibrary ?(Smalltalk at:#Windows8ToolbarIconLibrary) ? (Smalltalk at:#XPToolbarIconLibrary) ? GenericToolbarIconLibrary |
19 |
ToolbarIconLibrary =iconLibrary |
|
6012 | 20 |
useQuestForHelp true |
21 |
||
22 |
; |
|
23 |
; unfinished |
|
24 |
; |
|
25 |
||
26 |
; |
|
27 |
; notice: the values below |
|
28 |
; are not used when running under native Windows |
|
29 |
; (uses system-settings values then) |
|
30 |
; |
|
31 |
#if Screen current hasGreyscales |
|
32 |
||
33 |
selectionBlue (Color red:20.0 green:60.0 blue:100.0) exactOrNearestOn:(Screen current) |
|
34 |
||
35 |
viewGrey (Color grey:95) exactOrNearestOn:(Screen current) |
|
36 |
viewLightGrey Color white |
|
37 |
lightColor Color white |
|
38 |
halfShadowColor (Color grey:80) exactOrNearestOn:(Screen current) |
|
39 |
halfLightColor =viewGrey |
|
40 |
shadowColor (Color grey:60) exactOrNearestOn:(Screen current) |
|
41 |
||
42 |
#else |
|
43 |
||
44 |
selectionBlue Color black |
|
45 |
viewGrey Color white |
|
46 |
viewLightGrey Color white |
|
47 |
lightColor Color grey:50 |
|
48 |
shadowColor Color black |
|
49 |
||
50 |
#endif |
|
51 |
||
52 |
#if Screen current platformName = 'WIN32' |
|
53 |
||
54 |
selectionBlue [Screen current getSystemColor:#'COLOR_HIGHLIGHT'] |
|
55 |
menu.backgroundColor [Screen current getSystemColor:#'COLOR_MENU' ] |
|
56 |
menu.foregroundColor [Screen current getSystemColor:#'COLOR_MENUTEXT' ] |
|
57 |
viewGrey [Screen current getSystemColor:#'COLOR_BTNFACE' ] |
|
58 |
lightenedViewGrey [(Screen current getSystemColor:#'COLOR_BTNFACE') lightened ] |
|
59 |
darkenedViewGrey [(Screen current getSystemColor:#'COLOR_BTNFACE') darkened ] |
|
60 |
||
61 |
#else |
|
62 |
||
63 |
lightenedViewGrey Color redByte:240 greenByte:240 blueByte:240 |
|
64 |
darkenedViewGrey Color redByte:150 greenByte:150 blueByte:150 |
|
65 |
||
66 |
#endif |
|
67 |
||
68 |
#include 'mswindows95.common' |
|
69 |
||
8946 | 70 |
menu.enteredLevel 0 |
71 |
; menu.buttonEnteredLevel 2 "/ sigh - does not work |
|
6012 | 72 |
|
73 |
;; enable this, when old menuView cares for it also |
|
74 |
;; menu.itemMargin 1 |
|
75 |
menu.selectionFollowsMouse true |
|
76 |
menu.enteredBackgroundColor =menu.hilightBackgroundColor |
|
77 |
menu.enteredForegroundColor =menu.hilightForegroundColor |
|
78 |
menu.iconIndicationOn.bitmapFile 'CheckOn_xp.xpm' |
|
79 |
menu.iconIndicationOff.bitmapFile 'CheckOff_xp.xpm' |
|
8946 | 80 |
menu.iconRadioOn.bitmap =iconLibrary radioOn12x12Icon |
81 |
menu.iconRadioOff.bitmap =iconLibrary radioOff12x12Icon |
|
6012 | 82 |
menu.iconDisabledIndicationOn.bitmapFile 'CheckOn_disabled_xp.xpm' |
83 |
menu.iconDisabledIndicationOff.bitmapFile 'CheckOff_disabled_xp.xpm' |
|
8946 | 84 |
menu.iconDisabledRadioOn.bitmap =iconLibrary radioOnDisabled12x12Icon |
85 |
menu.iconDisabledRadioOff.bitmap =iconLibrary radioOffDisabled12x12Icon |
|
6015 | 86 |
|
8946 | 87 |
button.edgeStyle nil |
88 |
button.borderWidth 1 |
|
89 |
button.activeLevel 0 |
|
90 |
button.passiveLevel 0 |
|
6012 | 91 |
|
6015 | 92 |
button.frameColor (Color redByte:16rAC greenByte:16rAC blueByte:16rAC) |
93 |
button.enteredFrameColor (Color red:50 green:70 blue:92) |
|
94 |
button.activeFrameColor (Color red:34 green:62 blue:90) |
|
95 |
button.enteredBackgroundColor ((GradientBackground vertical:(Color rgbValue:16rEBF3FB) to:(Color rgbValue:16rDCEBFB)) usedLength:24) |
|
96 |
button.activeBackgroundColor ((GradientBackground vertical:(Color rgbValue:16rDAEBFB) to:(Color rgbValue:16rC3E0FB)) usedLength:24) |
|
97 |
button.activeForegroundColor (Color black) |
|
6012 | 98 |
|
6015 | 99 |
arrowButton.borderWidth 0 |
100 |
checkToggle.borderWidth 0 |
|
101 |
radioButton.borderWidth 0 |
|
102 |
comboView.button.borderWidth 0 |
|
103 |
||
8946 | 104 |
comboView.downForm =iconLibrary scrollDownOffIcon |
105 |
comboView.disabledDownForm =iconLibrary scrollDownOffIcon |
|
106 |
comboView.enteredDownForm =iconLibrary scrollDownOffEntered2Icon |
|
107 |
comboView.activeDownForm =iconLibrary scrollDownActiveIcon |
|
6012 | 108 |
; comboView.downFormFile 'ComboDn_xp.xpm'. |
109 |
; comboView.disabledDownFormFile 'ComboDn_disabled_xp.xpm'. |
|
110 |
; comboView.activeDownFormFile 'ComboDn_active_xp.xpm'. |
|
111 |
; comboView.enteredDownFormFile 'ComboDn_entered_xp.xpm'. |
|
112 |
comboView.button.activeLevel 0 |
|
113 |
comboView.button.passiveLevel 0 |
|
114 |
comboView.button.activeBackgroundColor =viewGrey |
|
115 |
; comboView.button.activeBackgroundColor (Color white) |
|
116 |
; comboView.button.backgroundColor (Color white) |
|
117 |
; comboView.level 0 |
|
118 |
||
119 |
; selection.highlightEnterItem true "/ underline-highlight item under cursor |
|
120 |
||
8948 | 121 |
scroller.viewBackground (Color redByte:16rF0 greenByte:16rF0 blueByte:16rF0) |
122 |
scroller.thumbColor (Color redByte:16rC0 greenByte:16rC0 blueByte:16rC0) |
|
123 |
scroller.thumbLightColor =scroller.thumbColor |
|
124 |
scroller.thumbShadowColor =scroller.thumbColor |
|
125 |
scroller.thumbEnteredColor (Color redByte:16rA6 greenByte:16rA6 blueByte:16rA6) |
|
126 |
scroller.thumbActiveColor (Color redByte:16r60 greenByte:16r60 blueByte:16r60) |
|
127 |
scroller.thumbLevel 0 |
|
128 |
; scroller.thumbInset 1 |
|
129 |
scroller.thumbInset 0 |
|
130 |
scroller.thumbFrameColor nil |
|
131 |
scroller.thumbEdgeStyle nil |
|
132 |
scroller.NTallyMarks nil |
|
133 |
scroller.tallyLevel nil |
|
134 |
scroller.tallyInset nil |
|
135 |
scroller.tallyDistance nil |
|
136 |
scroller.snapBackDistance 100 |
|
137 |
scroller.minThumbSize 16 |
|
6012 | 138 |
|
139 |
scroller.vista3DStyle false |
|
140 |
||
141 |
miniScroller.size 3 "/ in millimeters |
|
142 |
||
143 |
||
8946 | 144 |
arrowButton.upForm =iconLibrary scrollUpOffIcon |
145 |
arrowButton.enteredUpForm =iconLibrary scrollUpOffEntered2Icon |
|
146 |
arrowButton.activeUpForm =iconLibrary scrollUpActiveIcon |
|
147 |
arrowButton.disabledUpForm =iconLibrary scrollUpOffIcon |
|
6012 | 148 |
|
8946 | 149 |
arrowButton.downForm =iconLibrary scrollDownOffIcon |
150 |
arrowButton.enteredDownForm =iconLibrary scrollDownOffEntered2Icon |
|
151 |
arrowButton.activeDownForm =iconLibrary scrollDownActiveIcon |
|
152 |
arrowButton.disabledDownForm =iconLibrary scrollDownOffIcon |
|
6012 | 153 |
|
8946 | 154 |
arrowButton.leftForm =iconLibrary scrollLeftOffIcon |
155 |
arrowButton.enteredLeftForm =iconLibrary scrollLeftOffEntered2Icon |
|
156 |
arrowButton.activeLeftForm =iconLibrary scrollLeftActiveIcon |
|
157 |
arrowButton.disabledLeftForm =iconLibrary scrollLeftOffIcon |
|
6012 | 158 |
|
8946 | 159 |
arrowButton.rightForm =iconLibrary scrollRightOffIcon |
160 |
arrowButton.enteredRightForm =iconLibrary scrollRightOffEntered2Icon |
|
161 |
arrowButton.activeRightForm =iconLibrary scrollRightActiveIcon |
|
162 |
arrowButton.disabledRightForm =iconLibrary scrollRightOffIcon |
|
6012 | 163 |
|
164 |
||
165 |
arrowButton.leftFormFile 'ScrollLt.xp.xpm' |
|
166 |
arrowButton.enteredLeftFormFile 'ScrollLt_entered.xp.xpm' |
|
167 |
arrowButton.activeLeftFormFile 'ScrollLt_active.xp.xpm' |
|
168 |
arrowButton.disabledLeftFormFile 'ScrollLt_disabled.xp.xpm' |
|
169 |
||
170 |
arrowButton.rightFormFile 'ScrollRt.xp.xpm' |
|
171 |
arrowButton.enteredRightFormFile 'ScrollRt_entered.xp.xpm' |
|
172 |
arrowButton.activeRightFormFile 'ScrollRt_active.xp.xpm' |
|
173 |
arrowButton.disabledRightFormFile 'ScrollRt_disabled.xp.xpm' |
|
174 |
||
175 |
arrowButton.passiveLevel 0 |
|
176 |
arrowButton.activeLevel 0 |
|
177 |
arrowButton.backgroundColor =scroller.viewBackground |
|
178 |
arrowButton.activeBackgroundColor =scroller.viewBackground |
|
179 |
||
180 |
noteBook.backgroundColor =lightenedViewGrey |
|
181 |
noteBook.activeBackgroundColor =viewBackground |
|
182 |
noteBook.foregroundColor Color black |
|
183 |
noteBook.lightColor =darkenedViewGrey |
|
184 |
noteBook.shadowColor =darkenedViewGrey |
|
185 |
noteBook.passiveBackgroundColor =lightenedViewGrey |
|
186 |
||
187 |
checkToggle.bitmapFile 'CheckOn10_xp.xpm' |
|
8946 | 188 |
radioButton.passiveImage =iconLibrary radioOff12x12Icon |
189 |
radioButton.activeImage =iconLibrary radioOn12x12Icon |
|
190 |
radioButton.enteredPassiveImage =iconLibrary radioOffEntered12x12Icon |
|
191 |
radioButton.enteredActiveImage =iconLibrary radioOnEntered12x12Icon |
|
192 |
radioButton.disabledPassiveImage =iconLibrary radioOffDisabled12x12Icon |
|
193 |
radioButton.disabledActiveImage =iconLibrary radioOnDisabled12x12Icon |
|
194 |
checkToggle.disabledActiveImage =iconLibrary checkToggleOnDisabledIcon |
|
195 |
checkToggle.disabledPassiveImage =iconLibrary checkToggleOffDisabledIcon |
|
196 |
checkToggle.activeImage =iconLibrary checkToggleOnIcon |
|
197 |
checkToggle.passiveImage =iconLibrary checkToggleOffIcon |
|
198 |
checkToggle.enteredPassiveImage =iconLibrary checkToggleOffEnteredIcon |
|
199 |
checkToggle.enteredActiveImage =iconLibrary checkToggleOnEnteredIcon |
|
6012 | 200 |
checkToggle.activeLevel 0 |
201 |
checkToggle.passiveLevel 0 |
|
202 |
checkToggle.disabledBackgroundColor =viewGrey |
|
203 |
checkToggle.backgroundColor =viewGrey |
|
204 |
checkToggle.activeBackgroundColor =viewGrey |
|
205 |
||
8946 | 206 |
menu.iconIndicationOn =iconLibrary checkToggleOnIcon |
207 |
menu.iconIndicationOff =iconLibrary checkToggleOffIcon |
|
208 |
menu.iconDisabledIndicationOn =iconLibrary checkToggleOffDisabledIcon |
|
209 |
menu.iconDisabledIndicationOff =iconLibrary checkToggleOffIcon |
|
6012 | 210 |
|
211 |
noteBook.activeTabMarkerColor (Color red:100 green:78 blue:23) |
|
212 |
||
213 |
popup.borderColor (Color grey:50) |
|
214 |
popup.borderWidth 1 |
|
6015 | 215 |
|
6012 | 216 |
editField.level 0 |
217 |
editField.borderWidth 1 |
|
218 |
editField.borderColor (Color redByte:175 greenByte:190 blueByte:240) |
|
219 |
||
8946 | 220 |
comboView.level 0 |
221 |
comboView.borderWidth 1 |
|
222 |
comboView.borderColor (Color redByte:175 greenByte:190 blueByte:240) |
|
6012 | 223 |
|
8946 | 224 |
; label.foregroundColor (Color redByte:0 greenByte:70 blueByte:213) |
225 |
; button.foregroundColor (Color black) |
|
226 |
; radioButton.foregroundColor (Color black) |
|
227 |
; checkBox.labelForegroundColor (Color black) |
|
6012 | 228 |
|
8946 | 229 |
; noteBook.foregroundColor (Color redByte:0 greenByte:70 blueByte:213) |
230 |
framedBox.foregroundColor (Color redByte:0 greenByte:70 blueByte:213) |
|
231 |
; framedBox.frameLineOnly true |
|
6012 | 232 |
|
8946 | 233 |
variablePanel.handleLevel 0 |
6012 | 234 |
|
8946 | 235 |
infoBox.iconFile 'bitmaps/Information_XP.xpm' |
236 |
warningBox.iconFile 'bitmaps/Warning_XP.xpm' |
|
237 |
requestBox.iconFile 'bitmaps/Request_XP.xpm' |
|
238 |
errorBox.iconFile 'bitmaps/Error_XP.xpm' |
|
6012 | 239 |
|
8946 | 240 |
selection.backgroundColor (Color white) |
6012 | 241 |
|
242 |
;selection.hilightForegroundColor (Color black) |
|
243 |
;selection.hilightBackgroundColor (Color rgbValue:16rDFF0F8) |
|
244 |
;selection.hilightFrameColor (Color rgbValue:16r96D9F9) |
|
245 |
||
246 |
;;;menu.hilightForegroundColor (Color black) |
|
247 |
;;;menu.hilightBackgroundColor (Color rgbValue:16rDAEBF3) |
|
248 |
;;;menu.hilightFrameColor (Color rgbValue:16rA8D8EB) |
|
249 |
||
250 |
editField.selectionBackgroundColor =selectionBlue |
|
251 |
editField.selectionForegroundColor (Color white) |
|
252 |
||
253 |
scrolledView.level 0 |
|
8424 | 254 |
variablePanel.snapLevel 0 "only if not #line" |
255 |
infobar.level 0 |