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