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