diff -r 2b0f9dbe6e43 -r ecb149794455 d_win32.rc --- a/d_win32.rc Tue May 23 22:59:08 2017 +0100 +++ b/d_win32.rc Fri Jun 02 22:22:59 2017 +0100 @@ -7,59 +7,18 @@ * * ST/X startup configuration file: * display configuration - windows + * + * This file used to define keyboard mapping for more Windows-like feel. + * Hoever, mappings have been unified and moved to + * + * DeviceWorkstation class>>defaultKeyboardMapDefinition + * + * Eventually, this file will vanish. + * + * Put all your customizations to some `rc.d` file and or to your private + * startup script. *" ! 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. - -!