author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 24 Sep 2018 20:52:34 +0100 | |
branch | jv |
changeset 1579 | e6c2667b4692 |
parent 1243 | 1fc6b3f01e48 |
permissions | -rw-r--r-- |
571 | 1 |
"* |
609 | 2 |
* Encoding: iso8859-1 |
3 |
* |
|
571 | 4 |
* $Header$ |
5 |
* |
|
6 |
* MIMEType: application/x-smalltalk-source |
|
7 |
* |
|
8 |
* ST/X startup configuration file: |
|
582 | 9 |
* display configuration - windowsNT / windows95 with V'age key bindings. |
571 | 10 |
*" |
1243
1fc6b3f01e48
End chung after initial comment / encoding spec
Stefan Vogel <sv@exept.de>
parents:
1063
diff
changeset
|
11 |
! |
582 | 12 |
StandardSystemView takeFocusWhenMapped:true. |
13 |
! |
|
14 |
||
571 | 15 |
"/ |
16 |
"/ here, fixup the keyboard mapping for |
|
609 | 17 |
"/ windows feel - especially, |
18 |
"/ change from to |
|
571 | 19 |
"/ cut/copy/paste ALT-[XCV] CTRL-[XCV] |
20 |
"/ HOME-key BeginOfText BeginOfLine |
|
21 |
"/ END-key EndOfText EndOfLine |
|
22 |
"/ F1-key Again Help |
|
23 |
"/ F3-key FindAgain |
|
24 |
"/ F4-key CommentSelection |
|
25 |
"/ F5-key UncommentSelection |
|
26 |
"/ F8-key (replace-) Again |
|
27 |
"/ UserInterrupt CTRL-C BREAK/PAUSE |
|
28 |
||
29 |
|map| |
|
30 |
||
31 |
map := Display keyboardMap. |
|
32 |
||
33 |
'd_win32.rc [info]: changing keyboard to win95 defaults...' infoPrintCR. |
|
34 |
'd_win32.rc [info]: (CTRL-C is now COPY - unix ST/X users should have a look at d_win32.rc)' infoPrintCR. |
|
35 |
||
36 |
map bindValue:#UserInterrupt to:#Pause. |
|
37 |
map bindValue:#Copy to:#Ctrlc. |
|
38 |
map bindValue:#Cut to:#Ctrlx. |
|
39 |
map bindValue:#Paste to:#Ctrlv. |
|
40 |
map bindValue:#BeginOfLine to:#Home. |
|
41 |
map bindValue:#EndOfLine to:#End. |
|
609 | 42 |
map bindValue:#SelectAll to:#Ctrla. |
571 | 43 |
map bindValue:#Accept to:#Ctrls. |
44 |
map bindValue:#Find to:#Ctrlf. |
|
609 | 45 |
map bindValue:#DoIt to:#Ctrle. |
571 | 46 |
map bindValue:#PrintIt to:#Ctrld. "evaluate and paste result" |
47 |
map bindValue:#InspectIt to:#Ctrlq. "evaluate and paste result" |
|
48 |
||
49 |
||
50 |
map bindValue:#Format to:#CtrlF. |
|
51 |
||
52 |
||
53 |
map bindValue:#LearnKeyboardMacro to:#CtrlL. |
|
54 |
map bindValue:#ExecuteKeyboardMacro to:#CtrlM. |
|
55 |
||
56 |
map bindValue:#Help to:#F1. |
|
1063 | 57 |
map bindValue:#Rename to:#F2. |
571 | 58 |
map bindValue:#Again to:#F8. |
59 |
map bindValue:#FindAgain to:#F3. "/ search again in same direction |
|
60 |
map bindValue:#CommentSelection to:#F4. |
|
61 |
map bindValue:#UncommentSelection to:#F5. |
|
1063 | 62 |
"/ map bindValue:#CodeCompletion to:#F2. |
571 | 63 |
|
64 |
"/ map bindValue:#Cmdc to:#Cmdc. |
|
65 |
"/ map bindValue:#Cmdx to:#Cmdx. |
|
66 |
"/ map bindValue:#Cmdv to:#Cmdv. |
|
67 |
||
609 | 68 |
map bindValue:#Menu to:#Appl. |
571 | 69 |
! |