author | Claus Gittinger <cg@exept.de> |
Mon, 17 Sep 2018 16:09:24 +0200 | |
changeset 1573 | 1ca3df2d6317 |
parent 1243 | 1fc6b3f01e48 |
child 1507 | ecb149794455 |
permissions | -rw-r--r-- |
304 | 1 |
"* |
609 | 2 |
* Encoding: iso8859-1 |
3 |
* |
|
304 | 4 |
* $Header$ |
5 |
* |
|
399 | 6 |
* MIMEType: application/x-smalltalk-source |
7 |
* |
|
304 | 8 |
* ST/X startup configuration file: |
780 | 9 |
* display configuration - windows |
304 | 10 |
*" |
1243
1fc6b3f01e48
End chung after initial comment / encoding spec
Stefan Vogel <sv@exept.de>
parents:
1109
diff
changeset
|
11 |
! |
581 | 12 |
StandardSystemView takeFocusWhenMapped:true. |
582 | 13 |
! |
581 | 14 |
|
304 | 15 |
"/ |
16 |
"/ here, fixup the keyboard mapping for |
|
609 | 17 |
"/ windows feel - especially, |
18 |
"/ change from to |
|
534 | 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 |
|
304 | 28 |
|
29 |
|map| |
|
30 |
||
31 |
map := Display keyboardMap. |
|
32 |
||
929 | 33 |
map bindValue:#Cmd to:#Menu. |
928 | 34 |
map bindValue:#Menu to:#Appl. |
35 |
||
304 | 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. |
|
42 |
||
553 | 43 |
map bindValue:#Format to:#CtrlF. |
44 |
||
699 | 45 |
"/ map bindValue:#LearnKeyboardMacro to:#CtrlL. |
46 |
"/ map bindValue:#ExecuteKeyboardMacro to:#CtrlM. |
|
553 | 47 |
|
304 | 48 |
map bindValue:#Help to:#F1. |
1063 | 49 |
map bindValue:#Rename to:#F2. |
304 | 50 |
map bindValue:#Again to:#F8. |
348 | 51 |
map bindValue:#FindAgain to:#F3. "/ search again in same direction |
52 |
map bindValue:#CommentSelection to:#F4. |
|
53 |
map bindValue:#UncommentSelection to:#F5. |
|
1063 | 54 |
"/ map bindValue:#CodeCompletion to:#F2. |
304 | 55 |
|
691 | 56 |
"/ map bindValue:#Menu to:#Appl. |
57 |
map bindValue:#LearnKeyboardMacro to:#CtrlF2. |
|
58 |
map bindValue:#ExecuteKeyboardMacro to:#CmdF2. |
|
652 | 59 |
|
1109
9fb183f4c9af
Remove 10 year old text about new Ctrl-C Behavior
Stefan Vogel <sv@exept.de>
parents:
1063
diff
changeset
|
60 |
map bindValue:(Character value:181) to:(#Cmd copyWith:(Character value:181)) asSymbol. |
9fb183f4c9af
Remove 10 year old text about new Ctrl-C Behavior
Stefan Vogel <sv@exept.de>
parents:
1063
diff
changeset
|
61 |
map bindValue:(Character value:16r80) to:(#Cmd copyWith:(Character value:16r80)) asSymbol. |
9fb183f4c9af
Remove 10 year old text about new Ctrl-C Behavior
Stefan Vogel <sv@exept.de>
parents:
1063
diff
changeset
|
62 |
map bindValue:(Character value:16rB2) to:(#Cmd copyWith:(Character value:16rB2)) asSymbol. |
9fb183f4c9af
Remove 10 year old text about new Ctrl-C Behavior
Stefan Vogel <sv@exept.de>
parents:
1063
diff
changeset
|
63 |
map bindValue:(Character value:16rB3) to:(#Cmd copyWith:(Character value:16rB3)) asSymbol. |
652 | 64 |
|
304 | 65 |
! |