0
|
1 |
"*
|
609
|
2 |
* Encoding: iso8859-1
|
|
3 |
*
|
0
|
4 |
* $Header$
|
84
|
5 |
*
|
399
|
6 |
* MIMEType: application/x-smalltalk-source
|
|
7 |
*
|
209
|
8 |
* ST/X startup configuration file:
|
0
|
9 |
* display configuration - sun
|
100
|
10 |
*
|
|
11 |
* If your display is the above, create a symbolic link
|
|
12 |
* d_<hostname-of-display>.rc -> d_sun.rc
|
|
13 |
*
|
0
|
14 |
*"
|
|
15 |
|
199
|
16 |
"/
|
|
17 |
"/ the following helps to avoid the annoying click
|
|
18 |
"/ on newly opened windows ...
|
|
19 |
"/
|
|
20 |
StandardSystemView takeFocusWhenMapped:true.
|
|
21 |
|
|
22 |
|
5
|
23 |
"*
|
|
24 |
* view style - uncomment the one you like
|
|
25 |
*"
|
7
|
26 |
|
8
|
27 |
"/ actually, openwin-style is not finished yet
|
615
|
28 |
"/ you may prefer #iris, #motif
|
8
|
29 |
|
615
|
30 |
View defaultStyle:#mswindows95.
|
|
31 |
"/ View defaultStyle:#openwin.
|
8
|
32 |
"/ View defaultStyle:#iris.
|
|
33 |
"/ View defaultStyle:#motif.
|
0
|
34 |
!
|
|
35 |
|
|
36 |
"
|
|
37 |
define suns left-function keys
|
|
38 |
(this really should be done by xmodmap/server)
|
|
39 |
"
|
|
40 |
|map|
|
|
41 |
|
|
42 |
map := Display keyboardMap.
|
|
43 |
|
|
44 |
map bindValue:#Find to:#F19.
|
|
45 |
map bindValue:#Cut to:#F20.
|
|
46 |
map bindValue:#Paste to:#F18.
|
|
47 |
map bindValue:#Open to:#F17.
|
|
48 |
map bindValue:#Copy to:#F16.
|
|
49 |
map bindValue:#Undo to:#F14.
|
|
50 |
map bindValue:#Props to:#F13.
|
|
51 |
map bindValue:#Again to:#F12.
|
|
52 |
map bindValue:#Prior to:#F29.
|
|
53 |
map bindValue:#Next to:#F35.
|
|
54 |
map bindValue:#Home to:#F27.
|
|
55 |
map bindValue:#End to:#R13.
|
356
|
56 |
|
|
57 |
"/ a kludge: some Xservers send #Delete for both the backspace
|
|
58 |
"/ and the Delete key. In this case, we use the Backspace function
|
|
59 |
"/ for both keys. If your Xserver does not do this (it should not)
|
|
60 |
"/ remove or comment the following 'bindValue:#BackSpace'-line:
|
|
61 |
"/
|
|
62 |
|
|
63 |
map bindValue:#BackSpace to:#Delete.
|
|
64 |
|
0
|
65 |
!
|