author | Claus Gittinger <cg@exept.de> |
Thu, 30 Jul 1998 11:59:33 +0200 | |
changeset 2207 | 25c7dab78ab8 |
parent 2155 | 27862eea4474 |
child 2486 | a310c1c75516 |
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 |
; |
|
2207 | 29 |
; $Header: /cvs/stx/stx/libview/styles/generic.style,v 1.38 1998-07-30 09:59:32 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 |
; |
|
2155 | 43 |
; The construct '? ...' meands: only assign new value if no value has been |
44 |
; specified already; this allows included files (for example: motif.common) |
|
45 |
; to change value only if not already defined by the includer. |
|
46 |
; |
|
122 | 47 |
; The construct '=foo' means: use the value of the foo-variable described |
48 |
; above. |
|
49 |
; If a value is symbolic, the possible values are shown in a comment. |
|
50 |
; |
|
51 |
; Conditional settings are possible, by including these between |
|
52 |
; #if <st-expression> |
|
53 |
; ... |
|
54 |
; #endif |
|
55 |
; For example, colors can be set different for mono vs. color displays. |
|
129 | 56 |
; else constructs are possible too: |
57 |
; #if <st-expression> |
|
58 |
; ... |
|
59 |
; #else |
|
60 |
; ... |
|
61 |
; #endif |
|
62 |
; |
|
63 |
; finally, other files can be included: |
|
64 |
; |
|
65 |
; ... |
|
66 |
; #include 'filename' |
|
67 |
; ... |
|
68 |
; |
|
122 | 69 |
; ---------------------------------------------------------------------------- |
70 |
||
71 |
; if it some type of 3D style |
|
72 |
; (affects default levels, borderWidth and spacing between views etc.) |
|
73 |
; all styles which have 3D effects should set this to true |
|
144 | 74 |
|
309 | 75 |
comment 'not a usable style\\This file is used as reference and documentation.' |
76 |
||
77 |
#if (Language == #german) or:[Language == #de] |
|
78 |
comment 'Dies ist kein nutzbarer Stil\\Diese Datei dient als Referenz und Dokumentation.' |
|
79 |
#endif |
|
144 | 80 |
|
1162 | 81 |
; |
82 |
; if its a 3D style, spacing between components is often different; |
|
83 |
; also, no borders are generated. |
|
84 |
; |
|
122 | 85 |
is3D false |
86 |
||
87 |
; |
|
88 |
; the name of the style (will vanish) |
|
89 |
; |
|
90 |
name #unknown |
|
91 |
||
92 |
; |
|
93 |
; borders - if is3D is true, these are ignored |
|
94 |
; |
|
95 |
borderWidth 0 |
|
96 |
borderColor Color black |
|
97 |
||
98 |
; |
|
99 |
; these are macros used below |
|
100 |
; |
|
101 |
viewGrey Color grey:67 |
|
102 |
lightGrey (Color grey:67) lightened |
|
103 |
darkGrey (Color grey:67) darkened |
|
104 |
fixedFont Font family:'courier' face:'medium' style:'roman' size:12 |
|
105 |
variableFont Font family:'helvetica' face:'medium' style:'roman' size:12 |
|
106 |
||
107 |
; |
|
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
108 |
; the default size of topViews; |
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
109 |
; if unspecified, 2/3 of the screen dimension are taken |
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
110 |
; |
1948 | 111 |
standardSystemView.defaultExtent (Screen current extent * (2/3)) |
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
112 |
; |
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
113 |
; same for modal boxes |
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
114 |
; |
1948 | 115 |
modalBox.defaultExtent 200@150 |
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
116 |
|
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
117 |
; |
122 | 118 |
; the default font (notice that there are extra variables for |
119 |
; labelFont, textFont, menuFont etc.) |
|
120 |
; |
|
121 |
font =fixedFont |
|
122 |
||
123 |
; |
|
124 |
; the default view background |
|
125 |
; |
|
126 |
viewBackground =viewGrey |
|
127 |
||
128 |
; |
|
129 |
; space between widgets |
|
130 |
; |
|
131 |
viewSpacing nil "defaults to 1mm" |
|
132 |
||
133 |
; |
|
134 |
; when drawing shadow and light (3D-effect) |
|
135 |
; ignored if is3D is false |
|
136 |
; |
|
144 | 137 |
shadowColor nil "nil means: use viewBackground darkened" |
138 |
lightColor nil "nil means: use viewBackground lightened" |
|
139 |
halfShadowColor nil "nil means: some default" |
|
140 |
halfLightColor nil "nil means: some default" |
|
122 | 141 |
|
142 |
; |
|
143 |
; how are views highlighted when the focus is stepped |
|
144 | 144 |
; via the keyboard (#FocusNext i.e. Ctrl-CursorRight / #FocusPrevious i.e. Ctrl-CursorLeft) ? |
122 | 145 |
; |
146 |
focusColor Color red "red is the default anyway" |
|
147 |
focusBorderWidth 2 "2 is the default anyway" |
|
148 |
||
149 |
; |
|
150 |
; show a shadow under popup views ? |
|
151 |
; if popupShadowColor is non-nil, shadow is drawn in this |
|
152 |
; solid color; otherwise shadow is drawn by halftoning the pixels below. |
|
153 |
; This may be slow on some X-servers. |
|
154 |
; |
|
1948 | 155 |
popup.shadow false |
156 |
popup.shadowColor Color black |
|
157 |
popup.level nil |
|
158 |
popup.borderWidth 1 "2D styles only" |
|
159 |
popup.borderColor Color black "2D styles only" |
|
122 | 160 |
; |
161 |
; this controls if popups have to be clicked again to go away (if false) |
|
162 |
; or vanish automatically, when the button is released (if true) |
|
163 |
; the default is true |
|
164 |
; |
|
1948 | 165 |
popup.hideOnRelease true |
166 |
; UNIMPLEMENTED. popup.edgeStyle nil "or #soft" |
|
122 | 167 |
|
168 |
; |
|
169 |
; menus |
|
170 |
; |
|
1948 | 171 |
menu.font =variableFont |
172 |
menu.foregroundColor nil "means: use default from superclass" |
|
173 |
menu.backgroundColor nil "means: use default from superclass" |
|
174 |
menu.hilightForegroundColor =menu.backgroundColor "if level is ~~ 0, default is menuForegroundColor" |
|
175 |
menu.hilightBackgroundColor =menu.foregroundColor "if level is ~~ 0, default is menuBackgroundColor" |
|
176 |
menu.hilightLevel 0 |
|
177 |
menu.separatingLineLevel 0 |
|
178 |
menu.checkColor nil "means: use fgColor" |
|
179 |
menu.showAccelerators true |
|
2207 | 180 |
menu.subMenuPopInRightHalfOnly false "if true, only pop submenus if pointer is in rightHalf" |
122 | 181 |
|
182 |
; |
|
183 |
; pullDownMenu takes menu style if not specified otherwise |
|
184 |
; |
|
1948 | 185 |
pullDownMenu.viewBackground =menuViewBackground |
186 |
pullDownMenu.foregroundColor =menuForegroundColor |
|
187 |
pullDownMenu.backgroundColor =menuBackgroundColor |
|
188 |
pullDownMenu.hilightForegroundColor =menuHilightForegroundColor |
|
189 |
pullDownMenu.hilightBackgroundColor =menuHilightBackgroundColor |
|
190 |
pullDownMenu.shadowColor =menuShadowColor |
|
191 |
pullDownMenu.lightColor =menuLightColor |
|
192 |
pullDownMenu.font =menuFont |
|
193 |
pullDownMenu.edgeStyle nil "or #soft" |
|
194 |
pullDownMenu.separatingLines true |
|
195 |
pullDownMenu.level 1 |
|
196 |
pullDownMenu.hilightLevel =menuHilightLevel "ifnil: 0" |
|
197 |
pullDownMenu.autoselectFirst false |
|
122 | 198 |
|
199 |
; |
|
1959 | 200 |
;if #toggle pressing an item again (in the pull-menus item) hides a shown (kept) |
157 | 201 |
;menu. Otherwise a press outside of the item-area is required to hide the menu. |
202 |
; |
|
1959 | 203 |
pullDownMenu.toggleMode #toggle |
122 | 204 |
|
205 |
; |
|
157 | 206 |
;if true, menus topview is raised when an entry is activated |
207 |
; |
|
1948 | 208 |
pullDownMenu.raiseTop true |
157 | 209 |
|
210 |
; |
|
193 | 211 |
; popupList |
212 |
; |
|
1948 | 213 |
popUpList.popPosition nil "or #shifted, or #below" |
193 | 214 |
|
215 |
; |
|
122 | 216 |
; label defaults |
217 |
; (these are inherited by Button, Toggles etc. if not redefined) |
|
218 |
||
1948 | 219 |
label.foregroundColor Color black |
220 |
label.backgroundColor =viewBackground |
|
221 |
label.font =fixedFont |
|
122 | 222 |
|
223 |
; |
|
224 |
; buttons, toggles etc. |
|
225 |
; |
|
1948 | 226 |
button.font nil "nil means: use font" |
227 |
button.edgeStyle nil "or #soft" |
|
228 |
button.borderWidth nil "nil means: use value of borderWidth" |
|
229 |
button.activeLevel -1 |
|
230 |
button.passiveLevel 1 |
|
231 |
button.foregroundColor nil "nil means: use label-value" |
|
232 |
button.backgroundColor nil "nil means: use label-value" |
|
233 |
button.font nil "nil means: use label-value" |
|
234 |
button.disabledForegroundColor Color grey |
|
235 |
button.disabledBackgroundColor nil "nil means: use bgColor" |
|
236 |
button.enteredForegroundColor nil "nil means: use fgColor" |
|
237 |
button.enteredBackgroundColor nil "nil means: use bgColor" |
|
238 |
button.activeForegroundColor nil "nil means: use fgColor" |
|
239 |
button.activeBackgroundColor nil "nil means: use bgColor" |
|
240 |
button.returnButtonHasImage true "place a return-icon into defaultButtons" |
|
241 |
button.returnButtonHasBorder false "place a border around defaultButtons" |
|
122 | 242 |
|
243 |
; arrow buttons in scrollBars |
|
244 |
; |
|
1948 | 245 |
arrowButton.style nil "choose one of (#st80 #motif #mswindows nil)" |
246 |
arrowButton.foregroundColor nil "nil means: use buttons default" |
|
247 |
arrowButton.activeForegroundColor nil "nil means: use buttons default" |
|
248 |
arrowButton.activeBackgroundColor nil "nil means: use buttons default" |
|
249 |
arrowButton.upFormFile 'ScrollUp.xbm' |
|
250 |
arrowButton.downFormFile 'ScrollDn.xbm' |
|
251 |
arrowButton.leftFormFile 'ScrollLt.xbm' |
|
252 |
arrowButton.rightFormFile 'ScrollRt.xbm' |
|
253 |
arrowButton.activeLevel nil "nil means: use buttons default" |
|
254 |
arrowButton.passiveLevel nil "nil means: use buttons default" |
|
122 | 255 |
|
256 |
; |
|
257 |
; show a little lamp (a la IRIS) in toggles ? |
|
258 |
; |
|
1948 | 259 |
toggle.showLamp false "false means: no lamp" |
260 |
toggle.lampColor Color yellow "ignored if above is false" |
|
1951 | 261 |
toggle.lampWidthMM 1.8 "mm" |
262 |
toggle.lampHeightMM 3.5 "mm" |
|
122 | 263 |
|
264 |
; |
|
265 |
; the color of checkmarks (normally black; IRIS shows them red) |
|
266 |
; |
|
1948 | 267 |
checkToggle.checkColor Color black |
268 |
checkToggle.bitmapFile 'CheckOn.xbm' |
|
269 |
checkToggle.style #cross "or #check only taken if file is nil" |
|
270 |
checkToggle.activeBackgroundColor nil "means: use buttons default" |
|
271 |
checkToggle.activeLevel nil "means: use buttons default" |
|
272 |
checkToggle.passiveLevel nil "means: use buttons default" |
|
152 | 273 |
|
122 | 274 |
|
275 |
; |
|
276 |
; text view backgrounds - this is not the same as |
|
277 |
; textBackgroundColor (although it looks better if it is ...) |
|
278 |
; |
|
1948 | 279 |
textView.background Color white |
1896 | 280 |
TextView.st80Selections false "/ enables ST80 style doubleClick |
122 | 281 |
|
282 |
; |
|
283 |
; texts in ListView, TextView, EditTextView etc. |
|
284 |
; |
|
1948 | 285 |
text.foregroundColor Color black |
286 |
text.backgroundColor Color white |
|
287 |
text.font =fixedFont |
|
288 |
text.tabPositions #(1 9 17 25 33 41 49 57 65 73 81 89 97 105 113 121 129 137 145) |
|
122 | 289 |
|
1948 | 290 |
textCursor.foregroundColor Color white |
122 | 291 |
#if Display hasColors |
1948 | 292 |
textCursor.backgroundColor Color red |
122 | 293 |
#else |
1948 | 294 |
textCursor.backgroundColor Color black |
122 | 295 |
#endif |
1948 | 296 |
textCursor.type #block "choose one of (#block #ibeam #caret #solidCaret)" |
2122 | 297 |
textCursor.typeNoFocus nil "/ means same as textCursor; #none is also allowed |
122 | 298 |
|
299 |
; |
|
300 |
; text view selections |
|
301 |
; |
|
1948 | 302 |
text.wordSelectCatchesBlanks false |
303 |
text.st80Selections false |
|
304 |
||
305 |
text.selectionForegroundColor =text.backgroundColor |
|
122 | 306 |
#if Display hasColors |
1948 | 307 |
text.selectionBackgroundColor Color green |
122 | 308 |
#else |
309 |
# if Display hasGreyscales |
|
1948 | 310 |
text.selectionBackgroundColor Color grey |
122 | 311 |
# else |
1948 | 312 |
text.selectionBackgroundColor =text.foregroundColor |
122 | 313 |
# endif |
314 |
#endif |
|
315 |
||
316 |
; |
|
317 |
; text in editfields |
|
318 |
; |
|
1948 | 319 |
editField.foregroundColor Color black |
320 |
editField.backgroundColor Color white |
|
321 |
editField.selectionForegroundColor Color white |
|
322 |
editField.selectionBackgroundColor Color black |
|
323 |
editField.font =fixedFont |
|
122 | 324 |
|
325 |
; |
|
326 |
; special values for the transcript |
|
327 |
; |
|
1948 | 328 |
transcript.foregroundColor Color black |
329 |
transcript.backgroundColor Color white |
|
330 |
transcript.cursorForegroundColor =transcript.backgroundColor |
|
331 |
transcript.cursorBackgroundColor =transcript.foregroundColor |
|
122 | 332 |
|
333 |
; |
|
334 |
; highlighting errors in codeviews |
|
335 |
; |
|
1948 | 336 |
codeError.selectionForegroundColor =text.selectionForegroundColor |
122 | 337 |
#if Display hasColors |
1948 | 338 |
codeError.selectionBackgroundColor Color red |
122 | 339 |
#else |
1948 | 340 |
codeError.selectionBackgroundColor =text.selectionBackgroundColor |
122 | 341 |
#endif |
342 |
||
343 |
; |
|
344 |
; selection-in-list |
|
345 |
; |
|
2155 | 346 |
selection.multiSelectionModifier nil "means: #Shift; alternative: #Control" |
1948 | 347 |
selection.foregroundColor nil "means: use text-backgroundColor" |
348 |
selection.backgroundColor nil "means: use viewBackground" |
|
349 |
selection.hilightForegroundColor nil "means: use backgroundColor" |
|
350 |
selection.hilightBackgroundColor nil "means: use foregroundColor" |
|
351 |
selection.hilightFrameColor nil "means: no frame around selection" |
|
352 |
selection.hilightLevel 0 |
|
353 |
selection.hilightStyle nil "means: depend on styles name" |
|
354 |
selection.font nil "means: use textFont" |
|
355 |
selection.disabledForegroundColor nil "means: use grey" |
|
356 |
;NOTIMPL selection.rightArrowStyle |
|
357 |
selection.rightArrowLevel 1 |
|
122 | 358 |
|
359 |
; |
|
360 |
; variable panels |
|
361 |
; |
|
2133 | 362 |
variablePanel.barHeight nil "height in pixels. nil means: use barHeightMM or default" |
363 |
variablePanel.barWidth nil "width in pixels. nil means: use barWidthMM or default" |
|
364 |
||
365 |
variablePanel.barHeightMM 2 |
|
366 |
variablePanel.barWidthMM 3 |
|
367 |
||
1948 | 368 |
variablePanel.showHandle true |
369 |
variablePanel.handlePosition scrollbar.position "/ OLD: #right "#center #left" |
|
370 |
variablePanel.handleStyle nil "nil means: as appropriate per style-name; i.e. #next., #motif ..." |
|
1423 | 371 |
; in addition to the known ones, |
1456 | 372 |
; #none, #iris, #line, #motif or #full are also allowed |
1948 | 373 |
variablePanel.handleColor Black "only for #iris, #normal and #mswindows" |
374 |
variablePanel.handleLevel 2 "only if not #line" |
|
224 | 375 |
|
1948 | 376 |
; OBSOLETE: variablePanel.trackingLine false "false means: track bar; true means: only track line" |
377 |
variablePanel.trackingStyle #solidRectangle "/ means: rectangle track. |
|
1451 | 378 |
"/ Also possible:or: #solidLine or: #dashedLine |
1948 | 379 |
variablePanel.separatingLine false "true means: draw an edged line in addition to handle" |
2135 | 380 |
variablePanel.barHeight 2 |
122 | 381 |
|
1948 | 382 |
scrolledView.level -1 "level of scrolled view. -1 for 3D styles; 0 for 2D styles" |
383 |
scrollableView.level nil "nil: as specified elsewhere; only 0 for openWin" |
|
384 |
scrolledView.borderWidth nil "nil: slave views own preferrence; 1 in openWin" |
|
385 |
scrolledView.margin =viewSpacing // 2 "outer margin around scrolledView" |
|
386 |
scrollBar.spacing =viewSpacing // 2 "space between scrolledview and scrollBar" |
|
387 |
scrollBar.hiding false "/ automatic hiding of useless scrollBars |
|
1440 | 388 |
|
389 |
||
122 | 390 |
; |
391 |
; scrollbar position in scrolled views |
|
392 |
; |
|
1948 | 393 |
scrollBar.position #left "or: #right" |
122 | 394 |
|
395 |
; |
|
396 |
; scrollbars |
|
397 |
; |
|
1948 | 398 |
scrollBar.buttonPositions #around "or: #top #bottom" |
399 |
scrollBar.level 0 "level of scrollBar" |
|
400 |
scrollBar.elementSpacing 0 "spacing betwen buttons & thumb" |
|
401 |
scrollBar.disableButtons false "shall we disable buttons if appropriate" |
|
402 |
scrollBar.neverMini false "force big scrollBars" |
|
403 |
scrollBar.hiding false "hide scrollBars if nothing to scroll" |
|
122 | 404 |
|
405 |
; |
|
521 | 406 |
; scrollers (also used in scrollBars & also affects sliders) |
122 | 407 |
; |
1948 | 408 |
scroller.viewBackground Color grey |
409 |
scroller.thumbColor Color white |
|
410 |
scroller.thumbEnteredColor =scrollerThumbColor |
|
411 |
scroller.thumbFrameColor Color black "nil means no frame" |
|
412 |
scroller.thumbLevel 0 |
|
413 |
scroller.thumbActiveLevel =scrollerThumbLevel |
|
414 |
scroller.thumbInset 0 |
|
415 |
scroller.thumbFixHeight false |
|
416 |
scroller.thumbEdgeStyle nil "or #soft" |
|
417 |
scroller.level 0 |
|
418 |
scroller.borderWidth =borderWidth |
|
419 |
scroller.NTallyMarks 0 |
|
420 |
scroller.tallyLevel 0 |
|
421 |
scroller.ghostColor nil " nil means - no ghosting" |
|
422 |
scroller.ghostLevel 0 "only used if above color is nonNil" |
|
423 |
scroller.snapBack false "w95 behavior: snap back if moved out of the scroller" |
|
424 |
scroller.middleButtonJump false "xterm behavior: middle button jumps to click position" |
|
122 | 425 |
|
426 |
; |
|
427 |
; sliders may have different tally definition than scrollers |
|
428 |
; |
|
1948 | 429 |
slider.NTallyMarks 1 |
430 |
slider.tallyLevel -1 |
|
431 |
slider.level nil "nil means: means inherit from scroller" |
|
122 | 432 |
|
1948 | 433 |
miniScroller.size 2.5 "/ millimeters |
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1858
diff
changeset
|
434 |
|
122 | 435 |
; |
436 |
; framed boxes |
|
437 |
; |
|
1948 | 438 |
framedBox.foregroundColor Color black |
439 |
framedBox.labelPosition #topCenter "#topLeft #topRight #bottomLeft #bottomCenter #bottomRight" |
|
122 | 440 |
|
1948 | 441 |
ruler.foregroundColor nil "nil means: use foregroundColor or Black or White" |
442 |
ruler.backgroundColor nil "nil means: use viewBackground" |
|
443 |
ruler.metric nil "nil means: use #mm for german, #inch for all others" |
|
122 | 444 |
|
445 |
; |
|
446 |
; dialog boxes |
|
447 |
; |
|
448 |
||
449 |
; |
|
450 |
; information-box |
|
451 |
; |
|
1948 | 452 |
informationBox.icon (Image fromFile:'bitmaps/Information.xbm') |
122 | 453 |
|
454 |
; |
|
455 |
; warnbox |
|
456 |
; |
|
1948 | 457 |
warnBox.icon (Image fromFile:'bitmaps/Information.xbm') |
122 | 458 |
|
459 |
; |
|
460 |
; yes/no requests |
|
461 |
; |
|
1948 | 462 |
requestBox.icon (Image fromFile:'bitmaps/Request.xbm') |
173 | 463 |
|
464 |
||
1948 | 465 |
html.backgroundColor Color grey:80 |
466 |
html.anchorForegroundColor Color blue darkened |
|
467 |
html.activeAnchorForegroundColor Color red |
|
468 |
html.activeAnchorBackgroundColor =htmlBackgroundColor |
|
469 |
html.visitedAnchorForegroundColor Color red:30 green:0 blue:80 |
|
470 |
html.exampleAnchorForegroundColor Color red:40 green:0 blue:0 |
|
471 |
html.anchorUnderline false |