author | Claus Gittinger <cg@exept.de> |
Sat, 21 Jan 2017 04:04:02 +0100 | |
changeset 7779 | 5931d9c57148 |
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 |