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:
|
609
|
9 |
* display configuration - windowsNT / windows95
|
304
|
10 |
*"
|
|
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 |
|
|
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.
|
|
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.
|
|
49 |
map bindValue:#Again to:#F8.
|
348
|
50 |
map bindValue:#FindAgain to:#F3. "/ search again in same direction
|
|
51 |
map bindValue:#CommentSelection to:#F4.
|
|
52 |
map bindValue:#UncommentSelection to:#F5.
|
481
|
53 |
map bindValue:#CodeCompletion to:#F2.
|
304
|
54 |
|
312
|
55 |
"/ map bindValue:#Cmdc to:#Cmdc.
|
|
56 |
"/ map bindValue:#Cmdx to:#Cmdx.
|
|
57 |
"/ map bindValue:#Cmdv to:#Cmdv.
|
425
|
58 |
|
691
|
59 |
"/ map bindValue:#Menu to:#Appl.
|
|
60 |
map bindValue:#LearnKeyboardMacro to:#CtrlF2.
|
|
61 |
map bindValue:#ExecuteKeyboardMacro to:#CmdF2.
|
652
|
62 |
|
|
63 |
map bindValue:(Character value:181) to:(#Cmd , (Character value:181) asString) asSymbol.
|
|
64 |
map bindValue:(Character value:16r80) to:(#Cmd , (Character value:16r80) asString) asSymbol.
|
|
65 |
map bindValue:(Character value:16rB2) to:(#Cmd , (Character value:16rB2) asString) asSymbol.
|
|
66 |
map bindValue:(Character value:16rB3) to:(#Cmd , (Character value:16rB3) asString) asSymbol.
|
|
67 |
|
304
|
68 |
!
|