author | mawalch |
Thu, 09 Nov 2017 09:17:41 +0100 | |
changeset 8215 | a7e0abee3cb8 |
parent 8021 | 3cb0135ef948 |
child 8495 | 942e955f8b71 |
permissions | -rw-r--r-- |
3750 | 1 |
; |
8019 | 2 |
; $Header$ |
3750 | 3 |
; |
4 |
||
5 |
is3D true |
|
6 |
||
7 |
borderWidth 0 |
|
8 |
viewBackground =viewGrey |
|
9 |
focusStyle #win95 |
|
10 |
focusHighlightStyle #win95 |
|
11 |
||
4290
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
12 |
popup.borderWidth 1 |
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
13 |
popup.shadow false |
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
14 |
popup.level 1 |
3750 | 15 |
|
16 |
; |
|
17 |
; this reverses the ok-cancel order in dialogs; |
|
18 |
; some may be used to ok being on the left ... |
|
19 |
; |
|
20 |
dialogBox.okAtLeft true |
|
21 |
||
22 |
||
3972 | 23 |
#if (Screen current platformName = 'WIN32') |
8019 | 24 |
|
6161
7ade6e53ab87
For linux: prefer arial and courier new....
Stefan Vogel <sv@exept.de>
parents:
6055
diff
changeset
|
25 |
textFont (Font family:'courier new' face:'medium' style:'roman' size:10 encoding:'ms-ansi') onDevice:Screen current |
3972 | 26 |
font ((Screen current getSystemParametersInfo:#SPI_GETNONCLIENTMETRICS) at:#messageFont) onDevice:Screen current |
27 |
menu.font ((Screen current getSystemParametersInfo:#SPI_GETNONCLIENTMETRICS) at:#menuFont) onDevice:Screen current |
|
28 |
activeHelp.font ((Screen current getSystemParametersInfo:#SPI_GETNONCLIENTMETRICS) at:#statusFont) onDevice:Screen current |
|
8019 | 29 |
button.font =font |
30 |
||
3972 | 31 |
#else |
8019 | 32 |
|
5524 | 33 |
# try scaled fonts first, if they are not available, they will be replaced |
8019 | 34 |
|
6055 | 35 |
# if (OperatingSystem isOSXlike) |
8019 | 36 |
|
6055 | 37 |
textFont Font family:'courier' face:'medium' style:'roman' size:12 encoding:#'iso10646-1' |
8021 | 38 |
# font Font family:'helvetica' face:'light' style:'roman' size:12 encoding:#'iso10646-1' |
8019 | 39 |
# font Font family:'Kozuka Gothic Pro' face:'regular' style:'roman' size:12 encoding:#'iso10646-1' |
40 |
# menu.font Font family:'Lucida Grande' face:'demibold' style:'roman' size:12 encoding:#'iso10646-1' |
|
41 |
# menu.font Font family:'Lucida Grande' face:'medium' style:'roman' size:11 encoding:#'iso10646-1' |
|
8020 | 42 |
# menu.font Font family:'helvetica' face:'demilight' style:'roman' size:12 encoding:#'iso10646-1' |
8021 | 43 |
# menu.font Font family:'Lucida Grande' face:'demibold' style:'roman' size:12 encoding:#'iso10646-1' |
44 |
font Font family:'Arial' face:'regular' style:'roman' size:12 encoding:#'iso10646-1' |
|
45 |
menu.font Font family:'Arial' face:'bold' style:'roman' size:12 encoding:#'iso10646-1' |
|
8019 | 46 |
button.font =menu.font |
47 |
#activeHelp.font =font |
|
48 |
||
6055 | 49 |
# else |
8019 | 50 |
|
6162 | 51 |
textFont Font family:'courier new' face:'medium' style:'roman' size:10 encoding:#'iso10646-1' |
52 |
font Font family:'arial' face:'medium' style:'roman' size:10 encoding:#'iso10646-1' |
|
8019 | 53 |
menu.font =font |
54 |
button.font =font |
|
55 |
#activeHelp.font =font |
|
56 |
||
6055 | 57 |
# endif |
3972 | 58 |
#endif |
59 |
||
60 |
||
3750 | 61 |
focus.showBorder false |
62 |
focus.takeOnClick true |
|
63 |
||
64 |
textCursor.type #ibeam |
|
65 |
textCursor.noFocusForegroundColor Color grey |
|
66 |
||
67 |
#if Screen current hasGrayscales |
|
68 |
; editField.backgroundColor Color grey:90 |
|
69 |
editField.backgroundColor Color white |
|
70 |
#else |
|
71 |
editField.backgroundColor Color white |
|
72 |
editField.shadowColor Color black |
|
73 |
editField.lightColor Color grey:80 |
|
74 |
#endif |
|
75 |
||
76 |
checkToggle.activeLevel -2 |
|
77 |
checkToggle.passiveLevel -2 |
|
78 |
checkToggle.foregroundColor Color black |
|
79 |
checkToggle.backgroundColor Color white |
|
80 |
checkToggle.activeForegroundColor Color black |
|
81 |
checkToggle.activeBackgroundColor Color white |
|
82 |
checkToggle.bitmapFile 'CheckOn10.xbm' |
|
83 |
||
84 |
#if Screen current hasGreyscales |
|
85 |
menu.hilightForegroundColor Color white |
|
86 |
menu.hilightBackgroundColor =selectionBlue |
|
87 |
#else |
|
88 |
menu.hilightForegroundColor Color white |
|
89 |
menu.hilightBackgroundColor Color black |
|
90 |
#endif |
|
91 |
menu.buttonEnteredLevel 1 |
|
92 |
menu.buttonPassiveLevel 0 |
|
93 |
menu.buttonActiveLevel -1 |
|
94 |
menu.buttonItemSpace 2 |
|
3972 | 95 |
|
96 |
menu.itemSpace 5 |
|
3750 | 97 |
|
4653
4345e813500d
conditionalRight for windows viewStyle
Claus Gittinger <cg@exept.de>
parents:
4324
diff
changeset
|
98 |
; windows does NOT align the help-group at the right end of the menu |
4345e813500d
conditionalRight for windows viewStyle
Claus Gittinger <cg@exept.de>
parents:
4324
diff
changeset
|
99 |
menuPanel.ignoreConditionalStartGroupRight true |
4345e813500d
conditionalRight for windows viewStyle
Claus Gittinger <cg@exept.de>
parents:
4324
diff
changeset
|
100 |
|
3750 | 101 |
pullDownMenu.separatingLines false |
102 |
;; pullDownMenu.level 0 |
|
103 |
pullDownMenu.level 1 |
|
104 |
pullDownMenu.menuLevel 1 |
|
105 |
||
106 |
selection.hilightStyle #win95 |
|
107 |
selection.hilightForegroundColor Color white |
|
108 |
#if Screen current hasGrayscales |
|
109 |
selection.hilightBackgroundColor =selectionBlue |
|
110 |
#else |
|
111 |
selection.hilightBackgroundColor Color black |
|
112 |
#endif |
|
113 |
selection.hilightFrameColor Color black |
|
114 |
selection.rightArrowLevel 0 |
|
115 |
selection.rightArrowStyle #solid |
|
3970 | 116 |
selection.font =font |
117 |
||
3750 | 118 |
|
4290
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
119 |
variablePanel.handlePosition #left |
3750 | 120 |
|
121 |
#if Screen current serverVendor ~= 'Silicon Graphics' |
|
122 |
; SGI Xserver has a bug, keeping the dashed lineStyle in its GC |
|
123 |
; variablePanel.trackingStyle #dashedLine |
|
124 |
variablePanel.trackingStyle #dottedLine |
|
125 |
#else |
|
126 |
variablePanel.trackingStyle #solidLine |
|
127 |
#endif |
|
128 |
||
129 |
variablePanel.showHandle false "/ the default; can be overwritten by UI-spec |
|
130 |
||
131 |
; variablePanel.barHeight 4 |
|
132 |
; variablePanel.handleLevel 0 |
|
133 |
||
134 |
variablePanel.barHeight 8 |
|
135 |
variablePanel.handleLevel 1 |
|
4290
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
136 |
variablePanel.handleStyle #full |
3750 | 137 |
|
138 |
scrollableView.level -1 |
|
139 |
; scrollableView.backgroundColor =viewLightGrey |
|
140 |
scrolledView.borderWidth 0 |
|
141 |
scrolledView.level 0 |
|
142 |
scrolledView.margin 1 |
|
143 |
scrolledView.zeroOffsets true |
|
144 |
||
145 |
scrollBar.level 0 |
|
146 |
scrollBar.spacing 0 |
|
147 |
scrollBar.hiding true |
|
148 |
; scrollBar.neverMini true |
|
149 |
scrollBar.position #right |
|
4290
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
150 |
scrollBar.buttonPositions #around |
3750 | 151 |
scrollBar.viewBackground =viewLightGrey |
152 |
scrollBar.elementSpacing 0 |
|
153 |
||
154 |
#if Screen current hasGreyscales |
|
155 |
scroller.viewBackground =viewLightGrey |
|
156 |
scroller.thumbColor =viewGrey |
|
157 |
; scroller.thumbEdgeStyle #soft |
|
158 |
scroller.thumbEdgeStyle #softWin95 |
|
4290
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
159 |
scroller.thumbLightColor =viewGrey |
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
160 |
scroller.thumbHalfLightColor Color white |
3750 | 161 |
#else |
162 |
scroller.viewBackground Color grey:87.5 |
|
163 |
scroller.thumbColor Color white |
|
164 |
#endif |
|
165 |
||
166 |
scroller.thumbLevel 2 |
|
167 |
# scroller.borderWidth 1 |
|
168 |
scroller.borderWidth 0 |
|
169 |
scroller.level 0 |
|
170 |
scroller.ghostFrameColor Color darkGrey |
|
171 |
scroller.snapBack true |
|
172 |
||
173 |
;button.activeLevel 1 |
|
174 |
button.activeLevel -1 "/ 0 |
|
175 |
button.passiveLevel 2 |
|
176 |
#if Screen current hasGreyscales |
|
177 |
; button.edgeStyle #soft |
|
178 |
button.edgeStyle #softWin95 |
|
179 |
; button.activeForegroundColor Color black |
|
180 |
; button.activeBackgroundColor Color white |
|
181 |
; button.enteredBackgroundColor Color lightGrey |
|
182 |
; button.halfShadowColor =viewGrey darkened exactOrNearestOn:(Screen current) |
|
183 |
button.halfShadowColor =halfShadowColor |
|
184 |
button.halfLightColor Color white |
|
185 |
button.disabledEtchedForegroundColor Color white |
|
186 |
#else |
|
4927 | 187 |
; button.activeBackgroundColor Color black |
188 |
; button.activeForegroundColor Color white |
|
3750 | 189 |
; button.enteredBackgroundColor Color grey:87.5 |
190 |
#endif |
|
191 |
||
192 |
radioButton.style #image |
|
193 |
radioButton.passiveImageFile 'RadioOff_w95.xpm' |
|
194 |
radioButton.activeImageFile 'RadioOnBits_w95.xbm' |
|
195 |
||
196 |
||
197 |
; arrowButton.upFormFile 'ScrollUp.w95.14.xbm'. |
|
198 |
; arrowButton.downFormFile 'ScrollDn.w95.14.xbm'. |
|
199 |
; arrowButton.leftFormFile 'ScrollLt.w95.14.xbm'. |
|
200 |
; arrowButton.rightFormFile 'ScrollRt.w95.14.xbm'. |
|
201 |
arrowButton.upFormFile 'ScrollUp.w95.11.xbm'. |
|
202 |
arrowButton.downFormFile 'ScrollDn.w95.11.xbm'. |
|
203 |
arrowButton.leftFormFile 'ScrollLt.w95.11.xbm'. |
|
204 |
arrowButton.rightFormFile 'ScrollRt.w95.11.xbm'. |
|
205 |
||
206 |
selection.rightArrowForm Image extent:16@12 depth:1 \ |
|
207 |
bits:#[ \ |
|
208 |
2r00000000 2r00000000 \ |
|
209 |
2r00000000 2r00000000 \ |
|
210 |
2r00000000 2r00000000 \ |
|
211 |
2r00000010 2r00000000 \ |
|
212 |
2r00000011 2r00000000 \ |
|
213 |
2r00000011 2r10000000 \ |
|
214 |
2r00000011 2r11000000 \ |
|
215 |
2r00000011 2r10000000 \ |
|
216 |
2r00000011 2r00000000 \ |
|
217 |
2r00000010 2r00000000 \ |
|
218 |
2r00000000 2r00000000 \ |
|
219 |
2r00000000 2r00000000 \ |
|
220 |
] \ |
|
221 |
pad:8 |
|
222 |
||
223 |
comboView.level -1 |
|
224 |
comboView.downFormFile 'ScrollDn.w95.11.xbm'. |
|
225 |
comboView.disabledDownFormFile 'ScrollDn_disabled.w95.11.xpm'. |
|
226 |
||
4290
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
227 |
noteBook.tabTopMargin 1 |
21ed28a08d5d
Set noteBook.tabTobMargin instead of hardcoding it for windows
Stefan Vogel <sv@exept.de>
parents:
4089
diff
changeset
|
228 |
|
3750 | 229 |
html.backgroundColor Color white |
230 |
; html.anchorForegroundColor Color green darkened |
|
231 |
; html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened |
|
232 |
html.visitedAnchorForegroundColor Color red:50 green:0 blue:50 |
|
233 |
; html.anchorUnderlines true |
|
234 |
||
235 |
dataSet.labelView.level 0 |
|
236 |
||
237 |
activeHelp.backgroundColor Color yellow lightened lightened lightened |
|
3756 | 238 |
activeHelp.borderWidth 1 |
3750 | 239 |
|
6052 | 240 |
#if ((OperatingSystem getSystemInfo at:#version ifAbsent:'') includesString:'Ubuntu') |
241 |
activeHelp.backgroundColor (Color grey:15) |
|
242 |
activeHelp.foregroundColor Color white |
|
243 |
#endif |
|
244 |
||
3750 | 245 |
; |
246 |
; if running under windows, use the systemColor settings |
|
247 |
; |
|
248 |
#if Screen current platformName = 'WIN32' |
|
249 |
||
250 |
menu.backgroundColor [Screen current getSystemColor:#'COLOR_MENU' ] |
|
251 |
menu.foregroundColor [Screen current getSystemColor:#'COLOR_MENUTEXT' ] |
|
252 |
pullDownMenu.backgroundColor [Screen current getSystemColor:#'COLOR_BTNFACE' ] |
|
253 |
;; pullDownMenu.backgroundColor =menu.backgroundColor |
|
254 |
button.backgroundColor [Screen current getSystemColor:#'COLOR_BTNFACE' ] |
|
255 |
text.selectionForegroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHTTEXT' ] |
|
256 |
text.selectionBackgroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHT' ] |
|
257 |
text.alternativeSelectionForegroundColor Color black |
|
258 |
;; text.alternativeSelectionBackgroundColor Color redByte:255 greenByte:255 blueByte:204 |
|
259 |
text.alternativeSelectionBackgroundColor =text.selectionBackgroundColor lightened |
|
260 |
scroller.thumbColor [Screen current getSystemColor:#'COLOR_BTNFACE' ] |
|
4324 | 261 |
selection.hilightForegroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHTTEXT' ] |
262 |
selection.hilightBackgroundColor [Screen current getSystemColor:#'COLOR_HIGHLIGHT' ] |
|
3750 | 263 |
scroller.vScrollerWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ] |
264 |
scroller.hScrollerHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ] |
|
265 |
scrollBar.vScrollBarWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ] |
|
266 |
scrollBar.hScrollBarHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ] |
|
4324 | 267 |
|
268 |
#else |
|
269 |
||
270 |
scroller.vScrollerWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ] |
|
271 |
scroller.hScrollerHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ] |
|
272 |
scrollBar.vScrollBarWidth 16 "/ [Screen current getSystemMetrics:#'SM_CXVSCROLL' ] |
|
273 |
scrollBar.hScrollBarHeight 16 "/ [Screen current getSystemMetrics:#'SM_CYHSCROLL' ] |
|
3750 | 274 |
|
275 |
#endif |
|
276 |
||
277 |
#if (Screen current platformName = 'WIN32') and:[(Screen current getSystemColor:#'COLOR_SCROLLBAR') brightness > 0.95] |
|
3970 | 278 |
scroller.viewBackground [(Form width:8 height:8 fromArray:(Color ditherBits at:32) onDevice:Screen current) colorMap:(Array with:Color black with:(Screen current getSystemColor:#'COLOR_SCROLLBAR') )] |
3750 | 279 |
#endif |
280 |
#if (Screen current platformName = 'WIN32') and:[(Screen current getSystemColor:#'COLOR_SCROLLBAR') brightness <= 0.95] |
|
3970 | 281 |
scroller.viewBackground [(Form width:8 height:8 fromArray:(Color ditherBits at:32) onDevice:Screen current) colorMap:(Array with:Color white with:(Screen current getSystemColor:#'COLOR_SCROLLBAR') )] |
3750 | 282 |
#endif |
283 |
||
284 |
warningBox.iconFile 'bitmaps/Warning_w95.xpm' |
|
285 |
requestBox.iconFile 'bitmaps/Request_w95.xpm' |
|
286 |
errorBox.iconFile 'bitmaps/Error_w95.xpm' |