| author | mawalch |
| Thu, 09 Nov 2017 09:17:41 +0100 | |
| changeset 8215 | a7e0abee3cb8 |
| parent 2991 | 918e2f570098 |
| permissions | -rw-r--r-- |
| 2551 | 1 |
; View defaultStyle:#mswindows95_small |
2 |
; |
|
3 |
; like mswindows95, but with smaller scrollbars |
|
4 |
; (better for small-screens) |
|
|
2550
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
5 |
; |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2551
diff
changeset
|
6 |
; $Header: /cvs/stx/stx/libview/styles/mswindows95_small.style,v 1.3 1999-10-27 13:28:03 stefan Exp $ |
|
2550
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
7 |
|
| 2551 | 8 |
#include 'mswindows95.style' |
9 |
||
10 |
comment 'win95 lookalike - smaller scrollbars' |
|
|
2550
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
11 |
|
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
12 |
#if (Language == #german) or:[Language == #de] |
| 2551 | 13 |
comment 'an MS Windows95 angelehnter Stil - schmale ScrollBars' |
|
2550
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
14 |
#endif |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
15 |
|
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
16 |
#if (Language == #french) or:[Language == #fr] |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
17 |
comment 'Un style qui résemble MS Windows95' |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
18 |
#endif |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
19 |
|
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2551
diff
changeset
|
20 |
#if Screen current width <= 800 |
|
2550
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
21 |
arrowButton.upFormFile 'ScrollUp.w95.9.xbm'. |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
22 |
arrowButton.downFormFile 'ScrollDn.w95.9.xbm'. |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
23 |
arrowButton.leftFormFile 'ScrollLt.w95.9.xbm'. |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
24 |
arrowButton.rightFormFile 'ScrollRt.w95.9.xbm'. |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
25 |
#endif |
|
41e7d34afe32
for notebooks - smaller scrollbars
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
26 |