28 |
28 |
29 |map| |
29 |map| |
30 |
30 |
31 map := Display keyboardMap. |
31 map := Display keyboardMap. |
32 |
32 |
33 'd_win32.rc [info]: changing keyboard to win 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:#Cmd to:#Menu. |
33 map bindValue:#Cmd to:#Menu. |
37 map bindValue:#Menu to:#Appl. |
34 map bindValue:#Menu to:#Appl. |
38 |
35 |
39 map bindValue:#UserInterrupt to:#Pause. |
36 map bindValue:#UserInterrupt to:#Pause. |
40 map bindValue:#Copy to:#Ctrlc. |
37 map bindValue:#Copy to:#Ctrlc. |
54 map bindValue:#FindAgain to:#F3. "/ search again in same direction |
51 map bindValue:#FindAgain to:#F3. "/ search again in same direction |
55 map bindValue:#CommentSelection to:#F4. |
52 map bindValue:#CommentSelection to:#F4. |
56 map bindValue:#UncommentSelection to:#F5. |
53 map bindValue:#UncommentSelection to:#F5. |
57 "/ map bindValue:#CodeCompletion to:#F2. |
54 "/ map bindValue:#CodeCompletion to:#F2. |
58 |
55 |
59 "/ map bindValue:#Cmdc to:#Cmdc. |
|
60 "/ map bindValue:#Cmdx to:#Cmdx. |
|
61 "/ map bindValue:#Cmdv to:#Cmdv. |
|
62 |
|
63 "/ map bindValue:#Menu to:#Appl. |
56 "/ map bindValue:#Menu to:#Appl. |
64 map bindValue:#LearnKeyboardMacro to:#CtrlF2. |
57 map bindValue:#LearnKeyboardMacro to:#CtrlF2. |
65 map bindValue:#ExecuteKeyboardMacro to:#CmdF2. |
58 map bindValue:#ExecuteKeyboardMacro to:#CmdF2. |
66 |
59 |
67 map bindValue:(Character value:181) to:(#Cmd , (Character value:181) asString) asSymbol. |
60 map bindValue:(Character value:181) to:(#Cmd copyWith:(Character value:181)) asSymbol. |
68 map bindValue:(Character value:16r80) to:(#Cmd , (Character value:16r80) asString) asSymbol. |
61 map bindValue:(Character value:16r80) to:(#Cmd copyWith:(Character value:16r80)) asSymbol. |
69 map bindValue:(Character value:16rB2) to:(#Cmd , (Character value:16rB2) asString) asSymbol. |
62 map bindValue:(Character value:16rB2) to:(#Cmd copyWith:(Character value:16rB2)) asSymbol. |
70 map bindValue:(Character value:16rB3) to:(#Cmd , (Character value:16rB3) asString) asSymbol. |
63 map bindValue:(Character value:16rB3) to:(#Cmd copyWith:(Character value:16rB3)) asSymbol. |
71 |
64 |
72 ! |
65 ! |