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 |
*"
|
|
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.
|
|
57 |
map bindValue:#Again to:#F8.
|
|
58 |
map bindValue:#FindAgain to:#F3. "/ search again in same direction
|
|
59 |
map bindValue:#CommentSelection to:#F4.
|
|
60 |
map bindValue:#UncommentSelection to:#F5.
|
|
61 |
map bindValue:#CodeCompletion to:#F2.
|
|
62 |
|
|
63 |
"/ map bindValue:#Cmdc to:#Cmdc.
|
|
64 |
"/ map bindValue:#Cmdx to:#Cmdx.
|
|
65 |
"/ map bindValue:#Cmdv to:#Cmdv.
|
|
66 |
|
609
|
67 |
map bindValue:#Menu to:#Appl.
|
571
|
68 |
!
|