"*
 * Encoding: iso8859-1
 *
 * $Header$
 *
 * MIMEType: application/x-smalltalk-source
 *
 * ST/X startup configuration file:
 * display configuration - windows
 *"

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 win 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:#Format        to:#CtrlF.

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

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:#CodeCompletion     to:#F2.

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

"/ map bindValue:#Menu                 to:#Appl.
map bindValue:#LearnKeyboardMacro   to:#CtrlF2.
map bindValue:#ExecuteKeyboardMacro to:#CmdF2.

map bindValue:(Character value:181) to:(#Cmd , (Character value:181) asString) asSymbol.
map bindValue:(Character value:16r80) to:(#Cmd , (Character value:16r80) asString) asSymbol.
map bindValue:(Character value:16rB2) to:(#Cmd , (Character value:16rB2) asString) asSymbol.
map bindValue:(Character value:16rB3) to:(#Cmd , (Character value:16rB3) asString) asSymbol.

!