author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Fri, 25 Jan 2019 11:29:18 +0000 | |
branch | jv |
changeset 8620 | b4220c12f7ef |
parent 1951 | 5290a36652db |
permissions | -rw-r--r-- |
1104 | 1 |
; |
2 |
; example for a very small change |
|
3 |
; - like iris style, but tiny buttons and view-spacings |
|
1162 | 4 |
; (more real-estate on notebook/VGA displays) |
1104 | 5 |
; |
6 |
||
7 |
#include 'iris.style' |
|
8 |
||
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1162
diff
changeset
|
9 |
comment 'like `iris'';\tiny fonts and\tiny buttons & spacings (for 640x480 notebooks)' |
1104 | 10 |
|
11 |
#if (Language == #german) or:[Language == #de] |
|
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1162
diff
changeset
|
12 |
comment 'Wie `iris'' Stil\mit kleinen Zeichen und\winzigen Knöpfen & Abständen (für 640x480 Notebooks).' |
1162 | 13 |
#endif |
14 |
#if (Language == #french) or:[Language == #fr] |
|
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1162
diff
changeset
|
15 |
comment 'Comme le style `iris'',\avec très petit charactères,\boutons et espaces (pour notebook 640x480).' |
1104 | 16 |
#endif |
17 |
||
1951 | 18 |
editField.font Font family:'courier' face:'medium' style:'roman' size:8 |
1162 | 19 |
variableFont Font family:'helvetica' face:'medium' style:'roman' size:8 |
1951 | 20 |
selection.font =variableFont |
21 |
label.font =variableFont |
|
22 |
text.font =editFieldFont |
|
23 |
menu.font =variableFont |
|
24 |
pullDownMenu.font =menuFont |
|
25 |
||
26 |
arrowButton.downFormFile 'ScrollDn.8.xbm' |
|
27 |
arrowButton.upFormFile 'ScrollUp.8.xbm' |
|
28 |
arrowButton.leftFormFile 'ScrollLt.8.xbm' |
|
29 |
arrowButton.rightFormFile 'ScrollRt.8.xbm' |
|
1162 | 30 |
|
1951 | 31 |
comboView.downFormFile 'ComboDn.8.xbm' |
1104 | 32 |
|
1951 | 33 |
toggle.lampWidthMM 1.5 "/ millimeter |
34 |
toggle.lampHeightMM 2.5 "/ millimeter |
|
35 |
variablePanel.barHeight 6 "/ pixels |
|
36 |
viewSpacing 2 "/ pixels |
|
37 |
launcher.buttonSize 22@22 |
|
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1162
diff
changeset
|
38 |
|
1951 | 39 |
standardSystemView.defaultExtent 500@400 |
40 |
modelBox.defaultExtent 200@150 |
|
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1162
diff
changeset
|
41 |
|
1951 | 42 |
miniScroller.size 1.5 "/ millimeters |
1866
4d41fc889c0c
smaller miniScrollers & default extends in small/tiny iris styles
Claus Gittinger <cg@exept.de>
parents:
1162
diff
changeset
|
43 |