"*
 * $Header$
 *
 * MIMEType: application/x-smalltalk-source
 *
 * ST/X startup configuration file:
 * display configuration - windowsNT / windows95 
 *"

"/
"/ here, fixup the keyboard mapping for
"/ windows feel - especially, change 
"/     cut/copy/paste    from ALT-[XCV] into CTRL-[XCV]
"/     HOME-key from BeginOfText to BeginOfLine
"/     END-key  from EndOfText to EndOfLine
"/     F1-key from Again to Help
"/     F3-key now FindAgain
"/     F4-key now CommentSelection
"/     F5-key now UncommentSelection
"/     F8-key now (replace-) Again
"/     UserInterrupt now on PAUSE

|map|

map := Display keyboardMap.

'd_win32.rc [info]: changing keyboard to win95 defaults...' infoPrintCR.
'd_win32.rc [info]: (CTRL-C is now COPY - unix ST/X users should have a look at d_win32.rc)' infoPrintCR.

map bindValue:#UserInterrupt to:#Pause.
map bindValue:#Copy          to:#Ctrlc.
map bindValue:#Cut           to:#Ctrlx.
map bindValue:#Paste         to:#Ctrlv.
map bindValue:#BeginOfLine   to:#Home.
map bindValue:#EndOfLine     to:#End.

map bindValue:#Help          to:#F1.
map bindValue:#Again         to:#F8.
map bindValue:#FindAgain     to:#F3.   "/ search again in same direction
map bindValue:#CommentSelection   to:#F4.
map bindValue:#UncommentSelection to:#F5.

"/ map bindValue:#Cmdc          to:#Cmdc.
"/ map bindValue:#Cmdx          to:#Cmdx.
"/ map bindValue:#Cmdv          to:#Cmdv.

map bindValue:#Menu          to:#Appl.             
!