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