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