5 * |
5 * |
6 * MIMEType: application/x-smalltalk-source |
6 * MIMEType: application/x-smalltalk-source |
7 * |
7 * |
8 * ST/X startup configuration file: |
8 * ST/X startup configuration file: |
9 * display configuration - windows |
9 * display configuration - windows |
|
10 * |
|
11 * This file used to define keyboard mapping for more Windows-like feel. |
|
12 * Hoever, mappings have been unified and moved to |
|
13 * |
|
14 * DeviceWorkstation class>>defaultKeyboardMapDefinition |
|
15 * |
|
16 * Eventually, this file will vanish. |
|
17 * |
|
18 * Put all your customizations to some `rc.d` file and or to your private |
|
19 * startup script. |
10 *" |
20 *" |
11 ! |
21 ! |
12 StandardSystemView takeFocusWhenMapped:true. |
22 StandardSystemView takeFocusWhenMapped:true. |
13 ! |
23 ! |
14 |
24 |
15 "/ |
|
16 "/ here, fixup the keyboard mapping for |
|
17 "/ windows feel - especially, |
|
18 "/ change from to |
|
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 map bindValue:#Cmd to:#Menu. |
|
34 map bindValue:#Menu to:#Appl. |
|
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. |
|
42 |
|
43 map bindValue:#Format to:#CtrlF. |
|
44 |
|
45 "/ map bindValue:#LearnKeyboardMacro to:#CtrlL. |
|
46 "/ map bindValue:#ExecuteKeyboardMacro to:#CtrlM. |
|
47 |
|
48 map bindValue:#Help to:#F1. |
|
49 map bindValue:#Rename to:#F2. |
|
50 map bindValue:#Again to:#F8. |
|
51 map bindValue:#FindAgain to:#F3. "/ search again in same direction |
|
52 map bindValue:#CommentSelection to:#F4. |
|
53 map bindValue:#UncommentSelection to:#F5. |
|
54 "/ map bindValue:#CodeCompletion to:#F2. |
|
55 |
|
56 "/ map bindValue:#Menu to:#Appl. |
|
57 map bindValue:#LearnKeyboardMacro to:#CtrlF2. |
|
58 map bindValue:#ExecuteKeyboardMacro to:#CmdF2. |
|
59 |
|
60 map bindValue:(Character value:181) to:(#Cmd copyWith:(Character value:181)) asSymbol. |
|
61 map bindValue:(Character value:16r80) to:(#Cmd copyWith:(Character value:16r80)) asSymbol. |
|
62 map bindValue:(Character value:16rB2) to:(#Cmd copyWith:(Character value:16rB2)) asSymbol. |
|
63 map bindValue:(Character value:16rB3) to:(#Cmd copyWith:(Character value:16rB3)) asSymbol. |
|
64 |
|
65 ! |
|