| author | Claus Gittinger <cg@exept.de> |
| Fri, 11 Jun 1999 11:21:28 +0200 | |
| changeset 363 | 9d31dcdffe95 |
| parent 353 | 37944bef67ed |
| child 399 | 5a842f5d7196 |
| permissions | -rw-r--r-- |
| 350 | 1 |
"* |
2 |
* $Header$ |
|
3 |
* |
|
4 |
* ST/X startup configuration file: |
|
5 |
* |
|
6 |
* display configuration - exceed (i.e. remote on a windows system) |
|
7 |
* |
|
8 |
* If your display is the above, create a symbolic link |
|
9 |
* d_<hostname-of-display>.rc -> d_next.rc |
|
10 |
* |
|
11 |
*" |
|
12 |
||
13 |
"* |
|
14 |
* view style |
|
15 |
*" |
|
16 |
View defaultStyle:#mswindows95 |
|
17 |
! |
|
18 |
||
19 |
"* |
|
20 |
* this redefines some ALT-keys as CTRL-key, |
|
21 |
* since the exceed server catches ALT-keys. |
|
22 |
* (or can this be turned off ?) |
|
| 352 | 23 |
* For a full list of key assignments, see keyboard.rc. |
| 350 | 24 |
*" |
25 |
|map| |
|
26 |
||
27 |
map := Display keyboardMap. |
|
|
351
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
28 |
map bindValue:#Cmdx to:#Cmdx. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
29 |
map bindValue:#Cmdc to:#Cmdc. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
30 |
map bindValue:#Cmdv to:#Cmdv. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
31 |
map bindValue:#Cmds to:#Cmds. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
32 |
map bindValue:#Cmdf to:#Cmdf. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
33 |
map bindValue:#Cmdb to:#Cmdb. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
34 |
map bindValue:#Cmda to:#Cmda. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
35 |
map bindValue:#Cmdd to:#Cmdd. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
36 |
map bindValue:#Cmdp to:#Cmdp. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
37 |
map bindValue:#Cmdi to:#Cmdi. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
38 |
map bindValue:#Cmdg to:#Cmdg. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
39 |
map bindValue:#Cmde to:#Cmde. "/ unbind - for correct menu info |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
40 |
map bindValue:#CmdS to:#CmdS. "/ unbind - for correct menu info |
| 353 | 41 |
map bindValue:#Cmdz to:#Cmdz. "/ unbind - for correct menu info |
42 |
map bindValue:#CmdA to:#CmdA. "/ unbind - for correct menu info |
|
43 |
map bindValue:#Cmdh to:#Cmdh. "/ unbind - for correct menu info |
|
44 |
map bindValue:#Cmdm to:#Cmdm. "/ unbind - for correct menu info |
|
45 |
map bindValue:#Cmdr to:#Cmdr. "/ unbind - for correct menu info |
|
46 |
map bindValue:#Cmdw to:#Cmdw. "/ unbind - for correct menu info |
|
47 |
map bindValue:#Cmdw to:#Cmdw. "/ unbind - for correct menu info |
|
|
351
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
48 |
|
| 350 | 49 |
map bindValue:#Cut to:#Ctrlx. |
50 |
map bindValue:#Copy to:#Ctrlc. |
|
51 |
map bindValue:#Paste to:#Ctrlv. |
|
52 |
||
|
351
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
53 |
map bindValue:#GotoLine to:#Ctrlg. |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
54 |
map bindValue:#Find to:#Ctrls. |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
55 |
map bindValue:#FindNext to:#Ctrlf. |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
56 |
map bindValue:#FindPrev to:#Ctrlb. |
|
afddbb4fc776
remap function keys to CTRL-keys.
Claus Gittinger <cg@exept.de>
parents:
350
diff
changeset
|
57 |
|
| 350 | 58 |
map bindValue:#Accept to:#Ctrla. |
59 |
map bindValue:#DoIt to:#Ctrld. |
|
60 |
map bindValue:#PrintIt to:#Ctrlp. |
|
61 |
map bindValue:#InspectIt to:#Ctrli. |
|
62 |
map bindValue:#UserInterrupt to:#Pause. |
|
63 |
! |
|
64 |