|
24
|
1 |
"*
|
|
|
2 |
* $Header$
|
|
|
3 |
*
|
|
209
|
4 |
* ST/X startup configuration file:
|
|
|
5 |
*
|
|
24
|
6 |
* display configuration - for a b&w notebook or portable-pc (gas plasma/LCD b&w vga)
|
|
100
|
7 |
* This is only required, since my Xserver does not know the exact screen
|
|
|
8 |
* dimensions and also thinks its running on a color display (although the
|
|
|
9 |
* display can only show greyscales)
|
|
|
10 |
*
|
|
|
11 |
* You probably dont have one of those ...
|
|
|
12 |
* ... if your display is the above, create a symbolic link
|
|
|
13 |
* d_<hostname-of-display>.rc -> d_bw_vga.rc
|
|
|
14 |
*
|
|
24
|
15 |
*"
|
|
|
16 |
|
|
|
17 |
"*
|
|
|
18 |
* view style
|
|
|
19 |
*"
|
|
|
20 |
|
|
|
21 |
"*
|
|
|
22 |
* its VGA hardware, but displays only grey
|
|
|
23 |
* in 4-plane servers, dont try greyscales (its not worth it)
|
|
|
24 |
*"
|
|
|
25 |
Display hasColors:false.
|
|
|
26 |
Display depth < 8 ifTrue:[
|
|
|
27 |
Display hasGreyscales:false
|
|
|
28 |
].
|
|
|
29 |
|
|
|
30 |
"*
|
|
|
31 |
* for a small gas plasma display
|
|
|
32 |
*"
|
|
|
33 |
"/ Display heightInMillimeter:160.
|
|
|
34 |
"/ Display widthInMillimeter:212.
|
|
|
35 |
|
|
|
36 |
"*
|
|
|
37 |
* for a small LCD display
|
|
|
38 |
*"
|
|
|
39 |
Display heightInMillimeter:130.
|
|
|
40 |
Display widthInMillimeter:170.
|
|
|
41 |
|
|
|
42 |
View defaultStyle:#normal.
|
|
|
43 |
!
|
|
|
44 |
|
|
|
45 |
"*
|
|
|
46 |
* add some function key definitions ...
|
|
|
47 |
* (this is of course my private taste)
|
|
|
48 |
*"
|
|
|
49 |
|map|
|
|
|
50 |
|
|
|
51 |
map := Display keyboardMap.
|
|
|
52 |
|
|
|
53 |
map bindValue:#Again to:#F1.
|
|
|
54 |
|
|
|
55 |
map bindValue:$[ to:#'Cmd['.
|
|
|
56 |
map bindValue:$] to:#'Cmd]'.
|
|
|
57 |
map bindValue:${ to:#'Cmd{'.
|
|
|
58 |
map bindValue:$} to:#'Cmd}'.
|
|
|
59 |
map bindValue:$| to:#'Cmd|'.
|
|
|
60 |
map bindValue:$< to:#'Cmd<'.
|
|
|
61 |
map bindValue:$> to:#'Cmd>'.
|
|
|
62 |
map bindValue:$~ to:#'Cmd~'.
|
|
|
63 |
map bindValue:$@ to:#'Cmd@'.
|
|
|
64 |
map bindValue:$^ to:#'Cmd^'.
|
|
|
65 |
map bindValue:$# to:#'Cmd#'.
|
|
|
66 |
map bindValue:$\ to:#'Cmd\'.
|
|
|
67 |
|
|
|
68 |
!
|