author | Claus Gittinger <cg@exept.de> |
Thu, 21 Mar 1996 17:45:53 +0100 | |
changeset 534 | ae5caa947d14 |
parent 530 | e36baedc649f |
child 669 | 8c36132eb492 |
permissions | -rw-r--r-- |
122 | 1 |
; this style sheet lists all possible style-values |
2 |
; you can not use it directly as a style, but |
|
3 |
; as a template - to copy individual setting |
|
4 |
; into your private style file (if you want to create your own ones) |
|
5 |
; |
|
6 |
; Of course, you can also pick one of the supplied styles, |
|
7 |
; or include an existing style in your new style - changing values |
|
8 |
; as required. (see AEG_sailer.style as an example). |
|
9 |
; |
|
10 |
; After you created the style-file (and have it accessable in the |
|
11 |
; resources directory), you can use this style by adding |
|
12 |
; a line as follows to your 'display.rc' or 'private.rc' file: |
|
13 |
; View defaultStyle:#foo |
|
14 |
; where 'foo' is the name of the style-file name without the '.style' |
|
15 |
; ending. |
|
16 |
; Since it must be a symbol, use quotes around, if non alphanumeric |
|
17 |
; characters are in the name. |
|
18 |
. |
|
19 |
; I.e: |
|
20 |
; View defaultStyle:#motif |
|
21 |
; View defaultStyle:#normal |
|
22 |
; View defaultStyle:#'motif_light' |
|
23 |
; |
|
24 |
; Many of the values here are defaulted to useful values, |
|
25 |
; if not mentioned here - so there is no real need to define |
|
26 |
; all of them for new styles. |
|
27 |
; |
|
28 |
; |
|
534
ae5caa947d14
better motif-style selectionInListView highlighting
Claus Gittinger <cg@exept.de>
parents:
530
diff
changeset
|
29 |
; $Header: /cvs/stx/stx/libview/styles/generic.style,v 1.14 1996-03-21 16:45:50 cg Exp $ |
122 | 30 |
|
31 |
; |
|
32 |
; agenda: |
|
33 |
; the following list contains all possible style-values and their |
|
34 |
; default values (i.e. in your style-file you have to include only |
|
35 |
; those differing from the default). |
|
36 |
; |
|
37 |
; The first word is the style-sheet variable name, the rest (separated |
|
38 |
; by one or more spaces) is evaluated as a smalltalk expression and becomes |
|
39 |
; the value of the variable. |
|
40 |
; |
|
41 |
; Lines beginning with ';' are comments. |
|
42 |
; |
|
43 |
; The construct '=foo' means: use the value of the foo-variable described |
|
44 |
; above. |
|
45 |
; If a value is symbolic, the possible values are shown in a comment. |
|
46 |
; |
|
47 |
; Conditional settings are possible, by including these between |
|
48 |
; #if <st-expression> |
|
49 |
; ... |
|
50 |
; #endif |
|
51 |
; For example, colors can be set different for mono vs. color displays. |
|
129 | 52 |
; else constructs are possible too: |
53 |
; #if <st-expression> |
|
54 |
; ... |
|
55 |
; #else |
|
56 |
; ... |
|
57 |
; #endif |
|
58 |
; |
|
59 |
; finally, other files can be included: |
|
60 |
; |
|
61 |
; ... |
|
62 |
; #include 'filename' |
|
63 |
; ... |
|
64 |
; |
|
122 | 65 |
; ---------------------------------------------------------------------------- |
66 |
||
67 |
; if it some type of 3D style |
|
68 |
; (affects default levels, borderWidth and spacing between views etc.) |
|
69 |
; all styles which have 3D effects should set this to true |
|
144 | 70 |
|
309 | 71 |
comment 'not a usable style\\This file is used as reference and documentation.' |
72 |
||
73 |
#if (Language == #german) or:[Language == #de] |
|
74 |
comment 'Dies ist kein nutzbarer Stil\\Diese Datei dient als Referenz und Dokumentation.' |
|
75 |
#endif |
|
144 | 76 |
|
77 |
||
122 | 78 |
is3D false |
79 |
||
80 |
; |
|
81 |
; the name of the style (will vanish) |
|
82 |
; |
|
83 |
name #unknown |
|
84 |
||
85 |
; |
|
86 |
; borders - if is3D is true, these are ignored |
|
87 |
; |
|
88 |
borderWidth 0 |
|
89 |
borderColor Color black |
|
90 |
||
91 |
; |
|
92 |
; these are macros used below |
|
93 |
; |
|
94 |
viewGrey Color grey:67 |
|
95 |
lightGrey (Color grey:67) lightened |
|
96 |
darkGrey (Color grey:67) darkened |
|
97 |
fixedFont Font family:'courier' face:'medium' style:'roman' size:12 |
|
98 |
variableFont Font family:'helvetica' face:'medium' style:'roman' size:12 |
|
99 |
||
100 |
; |
|
101 |
; the default font (notice that there are extra variables for |
|
102 |
; labelFont, textFont, menuFont etc.) |
|
103 |
; |
|
104 |
font =fixedFont |
|
105 |
||
106 |
; |
|
107 |
; the default view background |
|
108 |
; |
|
109 |
viewBackground =viewGrey |
|
110 |
||
111 |
; |
|
112 |
; space between widgets |
|
113 |
; |
|
114 |
viewSpacing nil "defaults to 1mm" |
|
115 |
||
116 |
; |
|
117 |
; when drawing shadow and light (3D-effect) |
|
118 |
; ignored if is3D is false |
|
119 |
; |
|
144 | 120 |
shadowColor nil "nil means: use viewBackground darkened" |
121 |
lightColor nil "nil means: use viewBackground lightened" |
|
122 |
halfShadowColor nil "nil means: some default" |
|
123 |
halfLightColor nil "nil means: some default" |
|
122 | 124 |
|
125 |
; |
|
126 |
; how are views highlighted when the focus is stepped |
|
144 | 127 |
; via the keyboard (#FocusNext i.e. Ctrl-CursorRight / #FocusPrevious i.e. Ctrl-CursorLeft) ? |
122 | 128 |
; |
129 |
focusColor Color red "red is the default anyway" |
|
130 |
focusBorderWidth 2 "2 is the default anyway" |
|
131 |
||
132 |
; |
|
133 |
; show a shadow under popup views ? |
|
134 |
; if popupShadowColor is non-nil, shadow is drawn in this |
|
135 |
; solid color; otherwise shadow is drawn by halftoning the pixels below. |
|
136 |
; This may be slow on some X-servers. |
|
137 |
; |
|
138 |
popupShadow false |
|
139 |
popupShadowColor Color black |
|
140 |
popupLevel nil |
|
141 |
popupBorderWidth 1 "2D styles only" |
|
142 |
popupBorderColor Color black "2D styles only" |
|
143 |
; |
|
144 |
; this controls if popups have to be clicked again to go away (if false) |
|
145 |
; or vanish automatically, when the button is released (if true) |
|
146 |
; the default is true |
|
147 |
; |
|
148 |
popupHideOnRelease true |
|
149 |
; UNIMPLEMENTED. popupEdgeStyle nil "or #soft" |
|
150 |
||
151 |
; |
|
152 |
; menus |
|
153 |
; |
|
154 |
menuFont =variableFont |
|
155 |
menuForegroundColor nil "means: use default from superclass" |
|
156 |
menuBackgroundColor nil "means: use default from superclass" |
|
157 |
menuHilightForegroundColor =menuBackgroundColor "if level is ~~ 0, default is menuForegroundColor" |
|
158 |
menuHilightBackgroundColor =menuForegroundColor "if level is ~~ 0, default is menuBackgroundColor" |
|
159 |
menuHilightLevel 0 |
|
160 |
menuSeparatingLineLevel 0 |
|
161 |
menuCheckColor nil "means: use fgColor" |
|
482 | 162 |
menuShowAccelerators true |
122 | 163 |
|
164 |
; |
|
165 |
; pullDownMenu takes menu style if not specified otherwise |
|
166 |
; |
|
167 |
pullDownMenuViewBackground =menuViewBackground |
|
144 | 168 |
pullDownMenuForegroundColor =menuForegroundColor |
169 |
pullDownMenuBackgroundColor =menuBackgroundColor |
|
122 | 170 |
pullDownMenuHilightForegroundColor =menuHilightForegroundColor |
171 |
pullDownMenuHilightBackgroundColor =menuHilightBackgroundColor |
|
172 |
pullDownMenuShadowColor =menuShadowColor |
|
173 |
pullDownMenuLightColor =menuLightColor |
|
174 |
pullDownMenuFont =menuFont |
|
175 |
pullDownMenuEdgeStyle nil "or #soft" |
|
144 | 176 |
pullDownMenuSeparatingLines true |
177 |
pullDownMenuLevel 1 |
|
178 |
pullDownMenuHilightLevel =menuHilightLevel "ifnil: 0" |
|
122 | 179 |
|
180 |
; |
|
181 |
;if true, menu stays pulled if button is released (as in motif, mswindows) |
|
182 |
;otherwise, it hides itself on button release. |
|
183 |
; |
|
184 |
pullDownMenuKeepMenu false |
|
157 | 185 |
|
186 |
; |
|
187 |
;if true, pressing button again (in the pull-menus item) hides a shown (kept) |
|
188 |
;menu. Otherwise a press outside of the item-area is required to hide the menu. |
|
189 |
; |
|
144 | 190 |
pullDownMenuToggleKeep false |
122 | 191 |
|
192 |
; |
|
157 | 193 |
;if true, menus topview is raised when an entry is activated |
194 |
; |
|
195 |
pullDownMenuRaiseTop true |
|
196 |
||
197 |
; |
|
193 | 198 |
; popupList |
199 |
; |
|
200 |
popUpListPopPosition nil "or #shifted, or #below" |
|
201 |
||
202 |
; |
|
122 | 203 |
; label defaults |
204 |
; (these are inherited by Button, Toggles etc. if not redefined) |
|
205 |
||
206 |
labelForegroundColor Color black |
|
207 |
labelBackgroundColor =viewBackground |
|
208 |
labelFont =fixedFont |
|
209 |
||
210 |
; |
|
211 |
; buttons, toggles etc. |
|
212 |
; |
|
144 | 213 |
buttonFont nil "nil means: use font" |
214 |
buttonEdgeStyle nil "or #soft" |
|
215 |
buttonBorderWidth nil "nil means: use value of borderWidth" |
|
122 | 216 |
buttonActiveLevel -1 |
217 |
buttonPassiveLevel 1 |
|
144 | 218 |
buttonForegroundColor nil "nil means: use label-value" |
219 |
buttonBackgroundColor nil "nil means: use label-value" |
|
220 |
buttonFont nil "nil means: use label-value" |
|
122 | 221 |
buttonDisabledForegroundColor Color grey |
144 | 222 |
buttonDisabledBackgroundColor nil "nil means: use bgColor" |
223 |
buttonEnteredForegroundColor nil "nil means: use fgColor" |
|
224 |
buttonEnteredBackgroundColor nil "nil means: use bgColor" |
|
225 |
buttonActiveForegroundColor nil "nil means: use fgColor" |
|
226 |
buttonActiveBackgroundColor nil "nil means: use bgColor" |
|
227 |
buttonReturnButtonHasImage true "place a return-icon into defaultButtons" |
|
228 |
buttonReturnButtonHasBorder false "place a border around defaultButtons" |
|
122 | 229 |
|
230 |
; arrow buttons in scrollBars |
|
231 |
; |
|
144 | 232 |
arrowButtonStyle nil "choose one of (#st80 #motif #mswindows nil)" |
233 |
arrowButtonForegroundColor nil "nil means: use buttons default" |
|
234 |
arrowButtonActiveForegroundColor nil "nil means: use buttons default" |
|
235 |
arrowButtonActiveBackgroundColor nil "nil means: use buttons default" |
|
236 |
arrowButtonUpFormFile 'ScrollUp.xbm' |
|
237 |
arrowButtonDownFormFile 'ScrollDn.xbm' |
|
238 |
arrowButtonLeftFormFile 'ScrollLt.xbm' |
|
239 |
arrowButtonRightFormFile 'ScrollRt.xbm' |
|
240 |
arrowButtonActiveLevel nil "nil means: use buttons default" |
|
241 |
arrowButtonPassiveLevel nil "nil means: use buttons default" |
|
122 | 242 |
|
243 |
; |
|
244 |
; show a little lamp (a la IRIS) in toggles ? |
|
245 |
; |
|
246 |
toggleShowLamp false "false means: no lamp" |
|
247 |
toggleLampColor Color yellow "ignored if above is false" |
|
248 |
||
249 |
; |
|
250 |
; the color of checkmarks (normally black; IRIS shows them red) |
|
251 |
; |
|
252 |
checkToggleCheckColor Color black |
|
144 | 253 |
checkToggleBitmapFile 'CheckOn.xbm' |
254 |
checkToggleStyle #cross "or #check only taken if file is nil" |
|
152 | 255 |
checkToggleActiveBackgroundColor nil "means: use buttons default" |
256 |
checkToggleActiveLevel nil "means: use buttons default" |
|
257 |
checkTogglePassiveLevel nil "means: use buttons default" |
|
258 |
||
122 | 259 |
|
260 |
; |
|
261 |
; text view backgrounds - this is not the same as |
|
262 |
; textBackgroundColor (although it looks better if it is ...) |
|
263 |
; |
|
264 |
textViewBackground Color white |
|
265 |
||
266 |
; |
|
267 |
; texts in ListView, TextView, EditTextView etc. |
|
268 |
; |
|
269 |
textForegroundColor Color black |
|
270 |
textBackgroundColor Color white |
|
271 |
textFont =fixedFont |
|
272 |
||
273 |
textCursorForegroundColor Color white |
|
274 |
#if Display hasColors |
|
275 |
textCursorBackgroundColor Color red |
|
276 |
#else |
|
277 |
textCursorBackgroundColor Color black |
|
278 |
#endif |
|
279 |
textCursorType #block "choose one of (#block #ibeam #caret #solidCaret)" |
|
530 | 280 |
textWordSelectCatchesBlanks false |
122 | 281 |
|
282 |
; |
|
283 |
; text view selections |
|
284 |
; |
|
285 |
textSelectionForegroundColor =textBackgroundColor |
|
286 |
#if Display hasColors |
|
287 |
textSelectionBackgroundColor Color green |
|
288 |
#else |
|
289 |
# if Display hasGreyscales |
|
290 |
textSelectionBackgroundColor Color grey |
|
291 |
# else |
|
292 |
textSelectionBackgroundColor =textForegroundColor |
|
293 |
# endif |
|
294 |
#endif |
|
295 |
||
296 |
; |
|
297 |
; text in editfields |
|
298 |
; |
|
299 |
editFieldForegroundColor Color black |
|
300 |
editFieldBackgroundColor Color white |
|
301 |
editFieldSelectionForegroundColor Color white |
|
302 |
editFieldSelectionBackgroundColor Color black |
|
303 |
editFieldFont =fixedFont |
|
304 |
||
305 |
; |
|
306 |
; special values for the transcript |
|
307 |
; |
|
308 |
transcriptForegroundColor Color black |
|
309 |
transcriptBackgroundColor Color white |
|
310 |
transcriptCursorForegroundColor =transcriptBackgroundColor |
|
311 |
transcriptCursorBackgroundColor =transcriptForegroundColor |
|
312 |
||
313 |
; |
|
314 |
; highlighting errors in codeviews |
|
315 |
; |
|
316 |
codeErrorSelectionForegroundColor =textSelectionForegroundColor |
|
317 |
#if Display hasColors |
|
318 |
codeErrorSelectionBackgroundColor Color red |
|
319 |
#else |
|
320 |
codeErrorSelectionBackgroundColor =textSelectionBackgroundColor |
|
321 |
#endif |
|
322 |
||
323 |
; |
|
324 |
; selection-in-list |
|
325 |
; |
|
326 |
selectionForegroundColor nil "means: use text-backgroundColor" |
|
327 |
selectionBackgroundColor nil "means: use viewBackground" |
|
328 |
selectionHilightForegroundColor nil "means: use backgroundColor" |
|
329 |
selectionHilightBackgroundColor nil "means: use foregroundColor" |
|
330 |
selectionHilightFrameColor nil "means: no frame around selection" |
|
331 |
selectionHilightLevel 0 |
|
534
ae5caa947d14
better motif-style selectionInListView highlighting
Claus Gittinger <cg@exept.de>
parents:
530
diff
changeset
|
332 |
selectionHilightStyle nil "means: depend on styles name" |
122 | 333 |
selectionFont nil "means: use textFont" |
334 |
selectionDisabledForegroundColor nil "means: use grey" |
|
335 |
;NOTIMPL selectionRightArrowStyle |
|
336 |
selectionRightArrowLevel 1 |
|
337 |
||
338 |
; |
|
339 |
; variable panels |
|
340 |
; |
|
341 |
variablePanelShowHandle true |
|
342 |
variablePanelHandlePosition #right "#center #left" |
|
133 | 343 |
variablePanelHandleStyle nil "nil means: as appropriate per style-name; i.e. #next., #motif ..." |
224 | 344 |
; in addition to the known ones, #line is also allowed |
122 | 345 |
variablePanelHandleColor Black "only for #iris, #normal and #mswindows" |
224 | 346 |
variablePanelHandleLevel 2 "only if not #line" |
347 |
||
133 | 348 |
variablePanelTrackingLine false "false means: track bar; true means: only track line" |
349 |
variablePanelSeparatingLine false "true means: draw an edged line in addition to handle" |
|
122 | 350 |
|
351 |
; |
|
352 |
; scrollbar position in scrolled views |
|
353 |
; |
|
144 | 354 |
scrollBarPosition #left "or: #right" |
122 | 355 |
|
356 |
; |
|
357 |
; scrollbars |
|
358 |
; |
|
144 | 359 |
scrollBarButtonPositions #around "or: #top #bottom" |
360 |
scrollBarLevel 0 "level of scrollBar" |
|
361 |
scrollBarElementSpacing 0 "spacing betwen buttons & thumb" |
|
362 |
scrollBarDisableButtons false "shall we disable buttons if appropriate" |
|
122 | 363 |
|
364 |
; |
|
521 | 365 |
; scrollers (also used in scrollBars & also affects sliders) |
122 | 366 |
; |
367 |
scrollerViewBackground Color grey |
|
368 |
scrollerThumbColor Color white |
|
521 | 369 |
scrollerThumbEnteredColor =scrollerThumbColor |
122 | 370 |
scrollerThumbFrameColor Color black "nil means no frame" |
371 |
scrollerThumbLevel 0 |
|
530 | 372 |
scrollerThumbActiveLevel =scrollerThumbLevel |
122 | 373 |
scrollerThumbInset 0 |
374 |
scrollerThumbFixHeight false |
|
375 |
scrollerThumbEdgeStyle nil "or #soft" |
|
376 |
scrollerLevel 0 |
|
377 |
scrollerBorderWidth =borderWidth |
|
378 |
scrollerNTallyMarks 0 |
|
379 |
scrollerTallyLevel 0 |
|
380 |
scrollerGhostColor nil "nil means - no ghosting" |
|
381 |
scrollerGhostLevel 0 "only used if above color is nonNil" |
|
382 |
||
383 |
; |
|
384 |
; sliders may have different tally definition than scrollers |
|
385 |
; |
|
386 |
sliderNTallyMarks 1 |
|
387 |
sliderTallyLevel -1 |
|
144 | 388 |
sliderLevel nil "nil means: means inherit from scroller" |
122 | 389 |
|
390 |
; |
|
391 |
; framed boxes |
|
392 |
; |
|
393 |
framedBoxForegroundColor Color black |
|
394 |
framedBoxLabelPosition #topCenter "#topLeft #topRight #bottomLeft #bottomCenter #bottomRight" |
|
395 |
||
144 | 396 |
rulerForegroundColor nil "nil means: use foregroundColor or Black or White" |
397 |
rulerBackgroundColor nil "nil means: use viewBackground" |
|
398 |
rulerMetric nil "nil means: use #mm for german, #inch for all others" |
|
122 | 399 |
|
400 |
; |
|
401 |
; dialog boxes |
|
402 |
; |
|
403 |
||
404 |
; |
|
405 |
; information-box |
|
406 |
; |
|
407 |
informationBoxIcon (Image fromFile:'bitmaps/Information.xbm') |
|
408 |
||
409 |
; |
|
410 |
; warnbox |
|
411 |
; |
|
412 |
warnBoxIcon (Image fromFile:'bitmaps/Information.xbm') |
|
413 |
||
414 |
; |
|
415 |
; yes/no requests |
|
416 |
; |
|
417 |
requestBoxIcon (Image fromFile:'bitmaps/Request.xbm') |
|
173 | 418 |
|
419 |
||
420 |
htmlBackgroundColor Color grey:80 |
|
421 |
htmlAnchorForegroundColor Color blue darkened |
|
422 |
htmlActiveAnchorForegroundColor Color red |
|
423 |
htmlActiveAnchorBackgroundColor =htmlBackgroundColor |
|
424 |
htmlVisitedAnchorForegroundColor Color red:30 green:0 blue:80 |
|
425 |
htmlExampleAnchorForegroundColor Color red:40 green:0 blue:0 |
|
426 |
htmlAnchorUnderlines false |