d_win32_visualAge.rc
author Claus Gittinger <cg@exept.de>
Sat, 09 Feb 2019 16:58:53 +0100
changeset 1588 2727a9f4ac36
parent 1243 1fc6b3f01e48
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
     1
"*
609
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 582
diff changeset
     2
 * Encoding: iso8859-1
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 582
diff changeset
     3
 *
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
     4
 * $Header$
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
     5
 *
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
     6
 * MIMEType: application/x-smalltalk-source
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
     7
 *
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
     8
 * ST/X startup configuration file:
582
fbb9eae8fe0b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 571
diff changeset
     9
 * display configuration - windowsNT / windows95 with V'age key bindings.
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    10
 *"
1243
1fc6b3f01e48 End chung after initial comment / encoding spec
Stefan Vogel <sv@exept.de>
parents: 1063
diff changeset
    11
!
582
fbb9eae8fe0b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 571
diff changeset
    12
StandardSystemView takeFocusWhenMapped:true.
fbb9eae8fe0b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 571
diff changeset
    13
!
fbb9eae8fe0b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 571
diff changeset
    14
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    15
"/
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    16
"/ here, fixup the keyboard mapping for
609
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 582
diff changeset
    17
"/ windows feel - especially,
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 582
diff changeset
    18
"/     change           from            to
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    19
"/     cut/copy/paste   ALT-[XCV]       CTRL-[XCV]
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    20
"/     HOME-key         BeginOfText     BeginOfLine
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    21
"/     END-key          EndOfText       EndOfLine
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    22
"/     F1-key           Again           Help
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    23
"/     F3-key                           FindAgain
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    24
"/     F4-key                           CommentSelection
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    25
"/     F5-key                           UncommentSelection
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    26
"/     F8-key                           (replace-) Again
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    27
"/     UserInterrupt    CTRL-C          BREAK/PAUSE
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    28
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    29
|map|
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    30
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    31
map := Display keyboardMap.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    32
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    33
'd_win32.rc [info]: changing keyboard to win95 defaults...' infoPrintCR.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    34
'd_win32.rc [info]: (CTRL-C is now COPY - unix ST/X users should have a look at d_win32.rc)' infoPrintCR.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    35
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    36
map bindValue:#UserInterrupt to:#Pause.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    37
map bindValue:#Copy          to:#Ctrlc.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    38
map bindValue:#Cut           to:#Ctrlx.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    39
map bindValue:#Paste         to:#Ctrlv.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    40
map bindValue:#BeginOfLine   to:#Home.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    41
map bindValue:#EndOfLine     to:#End.
609
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 582
diff changeset
    42
map bindValue:#SelectAll     to:#Ctrla.
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    43
map bindValue:#Accept        to:#Ctrls.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    44
map bindValue:#Find          to:#Ctrlf.
609
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 582
diff changeset
    45
map bindValue:#DoIt          to:#Ctrle.
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    46
map bindValue:#PrintIt       to:#Ctrld.         "evaluate and paste result"
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    47
map bindValue:#InspectIt     to:#Ctrlq.         "evaluate and paste result"
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    48
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    49
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    50
map bindValue:#Format        to:#CtrlF.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    51
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    52
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    53
map bindValue:#LearnKeyboardMacro    to:#CtrlL.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    54
map bindValue:#ExecuteKeyboardMacro  to:#CtrlM.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    55
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    56
map bindValue:#Help          to:#F1.
1063
b0ad748f0a18 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 609
diff changeset
    57
map bindValue:#Rename        to:#F2.
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    58
map bindValue:#Again         to:#F8.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    59
map bindValue:#FindAgain     to:#F3.   "/ search again in same direction
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    60
map bindValue:#CommentSelection   to:#F4.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    61
map bindValue:#UncommentSelection to:#F5.
1063
b0ad748f0a18 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 609
diff changeset
    62
"/ map bindValue:#CodeCompletion     to:#F2.
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    63
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    64
"/ map bindValue:#Cmdc          to:#Cmdc.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    65
"/ map bindValue:#Cmdx          to:#Cmdx.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    66
"/ map bindValue:#Cmdv          to:#Cmdv.
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    67
609
f0f51d4a0066 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 582
diff changeset
    68
map bindValue:#Menu          to:#Appl.
571
0f993400c8b6 *** empty log message ***
ca
parents:
diff changeset
    69
!