"*
 * Encoding: iso8859-1
 *
 * $Header$
 *
 * MIMEType: application/x-smalltalk-source
 *
 * ST/X startup configuration file:
 * display configuration - windowsNT / windows95 with V'age key bindings.
 *"
!
StandardSystemView takeFocusWhenMapped:true.
!

"/
"/ here, fixup the keyboard mapping for
"/ windows feel - especially,
"/     change           from            to
"/     cut/copy/paste   ALT-[XCV]       CTRL-[XCV]
"/     HOME-key         BeginOfText     BeginOfLine
"/     END-key          EndOfText       EndOfLine
"/     F1-key           Again           Help
"/     F3-key                           FindAgain
"/     F4-key                           CommentSelection
"/     F5-key                           UncommentSelection
"/     F8-key                           (replace-) Again
"/     UserInterrupt    CTRL-C          BREAK/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:#SelectAll     to:#Ctrla.
map bindValue:#Accept        to:#Ctrls.
map bindValue:#Find          to:#Ctrlf.
map bindValue:#DoIt          to:#Ctrle.
map bindValue:#PrintIt       to:#Ctrld.         "evaluate and paste result"
map bindValue:#InspectIt     to:#Ctrlq.         "evaluate and paste result"


map bindValue:#Format        to:#CtrlF.


map bindValue:#LearnKeyboardMacro    to:#CtrlL.
map bindValue:#ExecuteKeyboardMacro  to:#CtrlM.

map bindValue:#Help          to:#F1.
map bindValue:#Rename        to:#F2.
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:#CodeCompletion     to:#F2.

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

map bindValue:#Menu          to:#Appl.
!