d_win32.rc
author Claus Gittinger <cg@exept.de>
Sat, 17 Oct 1998 15:32:09 +0200
changeset 312 3cee7a37fc4f
parent 304 b7ef06173222
child 348 dc429709126b
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
304
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"*
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 * $Header$
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
 *
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
 * ST/X startup configuration file:
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 * display configuration - windowsNT / windows95 
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 *"
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
"/
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
"/ here, fixup the keyboard mapping for
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
"/ windows feel - especially, change 
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"/     cut/copy/paste    from ALT-[XCV] into CTRL-[XCV]
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"/     HOME-key from BeginOfText to BeginOfLine
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"/     END-key from EndOfText to EndOfLine
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"/     F1-key from Again to Help
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
"/     UserInterrupt now on PAUSE
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
"/     F8 now on PAUSE
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
|map|
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
map := Display keyboardMap.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
'd_win32.rc [info]: changing keyboard to win95 defaults...' infoPrintCR.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
'd_win32.rc [info]: (CTRL-C is now COPY - unix ST/X users should have a look at d_win32.rc)' infoPrintCR.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
map bindValue:#UserInterrupt to:#Pause.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
map bindValue:#Copy          to:#Ctrlc.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
map bindValue:#Cut           to:#Ctrlx.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
map bindValue:#Paste         to:#Ctrlv.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
map bindValue:#BeginOfLine   to:#Home.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
map bindValue:#EndOfLine     to:#End.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
map bindValue:#Help          to:#F1.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
map bindValue:#Again         to:#F8.
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
312
3cee7a37fc4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    35
"/ map bindValue:#Cmdc          to:#Cmdc.
3cee7a37fc4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    36
"/ map bindValue:#Cmdx          to:#Cmdx.
3cee7a37fc4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 304
diff changeset
    37
"/ map bindValue:#Cmdv          to:#Cmdv.
304
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
!
b7ef06173222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39