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