|
0
|
1 |
"*
|
|
|
2 |
* $Header$
|
|
5
|
3 |
*
|
|
399
|
4 |
* MIMEType: application/x-smalltalk-source
|
|
|
5 |
*
|
|
209
|
6 |
* ST/X startup configuration file:
|
|
|
7 |
*
|
|
5
|
8 |
* display configuration - for my portable-pc (gas plasma b&w vga or 8514 color)
|
|
100
|
9 |
*
|
|
|
10 |
* You probably dont need that one ...
|
|
|
11 |
*
|
|
|
12 |
* Since I run my portably pc with changing VGA cards (dump VGA vs. 8514),
|
|
|
13 |
* the code below guesses on this depending on the resolution.
|
|
|
14 |
* The gas plasma display can only display greyscales - although the Xserver
|
|
|
15 |
* thinks its running on a color display.
|
|
|
16 |
*
|
|
0
|
17 |
*"
|
|
|
18 |
|
|
5
|
19 |
"*
|
|
|
20 |
* view style
|
|
|
21 |
*"
|
|
7
|
22 |
"*
|
|
|
23 |
* figure out if running on plasma or color display
|
|
|
24 |
* (the plasma display works with 640x480 only;
|
|
|
25 |
* the 8514 has 1024x768 resolution)
|
|
|
26 |
*/"
|
|
|
27 |
Display width == 640 ifTrue:[
|
|
|
28 |
"*
|
|
|
29 |
* its VGA hardware, but displays only grey
|
|
|
30 |
*"
|
|
|
31 |
Display hasColors:false.
|
|
5
|
32 |
|
|
7
|
33 |
"*
|
|
|
34 |
* its a small gas plasma display
|
|
|
35 |
*"
|
|
|
36 |
Display heightInMillimeter:160.
|
|
|
37 |
Display widthInMillimeter:212
|
|
|
38 |
] ifFalse:[
|
|
|
39 |
"*
|
|
|
40 |
* its a 16 inch display
|
|
|
41 |
*"
|
|
|
42 |
Display heightInMillimeter:208.
|
|
|
43 |
Display widthInMillimeter:275
|
|
|
44 |
].
|
|
5
|
45 |
|
|
7
|
46 |
Display depth <= 4 ifTrue:[
|
|
|
47 |
View defaultStyle:#normal
|
|
|
48 |
] ifFalse:[
|
|
|
49 |
View defaultStyle:#iris
|
|
|
50 |
]
|
|
0
|
51 |
!
|
|
|
52 |
|
|
|
53 |
"*
|
|
|
54 |
* add some function key definitions ...
|
|
|
55 |
* (this is of course my private taste)
|
|
|
56 |
*"
|
|
|
57 |
|map|
|
|
|
58 |
|
|
|
59 |
map := Display keyboardMap.
|
|
|
60 |
|
|
|
61 |
map bindValue:#Again to:#F1.
|
|
|
62 |
|
|
|
63 |
map bindValue:$[ to:#'Cmd['.
|
|
|
64 |
map bindValue:$] to:#'Cmd]'.
|
|
|
65 |
map bindValue:${ to:#'Cmd{'.
|
|
|
66 |
map bindValue:$} to:#'Cmd}'.
|
|
|
67 |
map bindValue:$| to:#'Cmd|'.
|
|
|
68 |
map bindValue:$< to:#'Cmd<'.
|
|
|
69 |
map bindValue:$> to:#'Cmd>'.
|
|
|
70 |
map bindValue:$~ to:#'Cmd~'.
|
|
|
71 |
map bindValue:$@ to:#'Cmd@'.
|
|
|
72 |
map bindValue:$^ to:#'Cmd^'.
|
|
|
73 |
map bindValue:$# to:#'Cmd#'.
|
|
|
74 |
map bindValue:$\ to:#'Cmd\'.
|
|
|
75 |
|
|
|
76 |
!
|