"*
 * 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.

map bindValue:#Cmd  to:#Menu.
map bindValue:#Menu to:#Appl.

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:#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:#Menu                 to:#Appl.
map bindValue:#LearnKeyboardMacro   to:#CtrlF2.
map bindValue:#ExecuteKeyboardMacro to:#CmdF2.

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

!