"*
 * Encoding: iso8859-1
 *
 * $Header$
 *
 * MIMEType: application/x-smalltalk-source
 *
 * ST/X startup configuration file:
 *
 * display configuration - exceed (i.e. remote on a windows system)
 *
 * If your display is the above, create a symbolic link
 * d_<hostname-of-display>.rc -> d_next.rc
 *
 *"

"*
 * view style
 *"
View defaultStyle:#mswindowsXP.
!

"*
 * this redefines some ALT-keys as CTRL-key,
 * since the exceed server catches ALT-keys.
 * (or can this be turned off ?)
 * For a full list of key assignments, see keyboard.rc.
 *"
|map|

map := Display keyboardMap.
map bindValue:#Cmdx      to:#Cmdx.    "/ unbind - for correct menu info
map bindValue:#Cmdc      to:#Cmdc.    "/ unbind - for correct menu info
map bindValue:#Cmdv      to:#Cmdv.    "/ unbind - for correct menu info
map bindValue:#Cmds      to:#Cmds.    "/ unbind - for correct menu info
map bindValue:#Cmdf      to:#Cmdf.    "/ unbind - for correct menu info
map bindValue:#Cmdb      to:#Cmdb.    "/ unbind - for correct menu info
map bindValue:#Cmda      to:#Cmda.    "/ unbind - for correct menu info
map bindValue:#Cmdd      to:#Cmdd.    "/ unbind - for correct menu info
map bindValue:#Cmdp      to:#Cmdp.    "/ unbind - for correct menu info
map bindValue:#Cmdi      to:#Cmdi.    "/ unbind - for correct menu info
map bindValue:#Cmdg      to:#Cmdg.    "/ unbind - for correct menu info
map bindValue:#Cmde      to:#Cmde.    "/ unbind - for correct menu info
map bindValue:#CmdS      to:#CmdS.    "/ unbind - for correct menu info
map bindValue:#Cmdz      to:#Cmdz.    "/ unbind - for correct menu info
map bindValue:#CmdA      to:#CmdA.    "/ unbind - for correct menu info
map bindValue:#Cmdh      to:#Cmdh.    "/ unbind - for correct menu info
map bindValue:#Cmdm      to:#Cmdm.    "/ unbind - for correct menu info
map bindValue:#Cmdr      to:#Cmdr.    "/ unbind - for correct menu info
map bindValue:#Cmdw      to:#Cmdw.    "/ unbind - for correct menu info
map bindValue:#Cmdw      to:#Cmdw.    "/ unbind - for correct menu info
map bindValue:#CmdF      to:#CmdF.    "/ unbind - for correct menu info
map bindValue:#CmdM      to:#CmdM.    "/ unbind - for correct menu info
map bindValue:#CmdL      to:#CmdL.    "/ unbind - for correct menu info

map bindValue:#Cut       to:#Ctrlx.
map bindValue:#Copy      to:#Ctrlc.
map bindValue:#Paste     to:#Ctrlv.

map bindValue:#GotoLine  to:#Ctrlg.
map bindValue:#Find      to:#Ctrls.
map bindValue:#FindNext  to:#Ctrlf.
map bindValue:#FindPrev  to:#Ctrlb.

map bindValue:#Format    to:#CtrlF.

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

map bindValue:#Accept           to:#Ctrla.
map bindValue:#DoIt             to:#Ctrld.
map bindValue:#PrintIt          to:#Ctrlp.
map bindValue:#InspectIt        to:#Ctrli.
map bindValue:#UserInterrupt    to:#Pause.
!