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