/****************************** Module Header *******************************
*
* Module Name: cuakeys.e
*
* Copyright (c) Netlabs EPM Distribution Project 2008
*
* $Id$
*
* ===========================================================================
*
* This file is part of the Netlabs EPM Distribution package and is free
* software.  You can redistribute it and/or modify it under the terms of the
* GNU General Public License as published by the Free Software
* Foundation, in version 2 as it comes in the "COPYING" file of the
* Netlabs EPM Distribution.  This library is distributed in the hope that it
* will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
* General Public License for more details.
*
****************************************************************************/

; CUA keys for EPM

; How to activate it:
;
;    Edit -> Preferences -> Keysets -> Keyset additions: [...]
;
;    Advanced marking is defined separately. For complete CUA behavior,
;    that has to be set to basic marking:
;
;    Edit -> Preferences -> Marking -> [ ] Advanced marking
;
; The key definitions in this file redefine some definitions of STDKEYS.E.
; In order to add a similar definition file, e.g. MYCUAKEYS.E, defc CuaKeys
; has to be changed to defc MyCuaKeys, too.
defc CuaKeys

; File ----------------------------------------------------------------------
DefKeyCategory( 'File')
DefKey( 'c_s'          , 'Save'            )    -- was: 'SearchDlg'
DefKey( 'c_a_s'        , 'SaveAs_Dlg'      )
DefKey( 'c_s_s'        , 'SaveAll'         )
DefKey( 'c_f4'         , 'Quit'            )    -- (close file, not quit editor) was: 'LowercaseMark'
; Alt+F4 suffices
;DefKey( 'c_q'         , 'Close'           )
; Ctrl+F4 is more common
;DefKey( 'c_w'         , 'Quit'            )    -- was: 'FindWord'

; Cursor --------------------------------------------------------------------
DefKeyCategory( 'Cursor')
DefKey( 'a_up'         , 'Up 3'            )    -- Go up 3 lines
DefKey( 'a_down'       , 'Down 3'          )    -- Go down 3 lines
DefKey( 'a_left'       , 'Left 3'          )    -- Go left 3 cols
DefKey( 'a_right'      , 'Right 3'         )    -- Go right 3 cols

; Scroll --------------------------------------------------------------------
DefKeyCategory( 'Scroll')
DefKey( 'c_f2'         , 'ScrollDown'      )
DefKey( 'c_s_f2'       , 'ScrollUp'        )
DefKey( 'a_f2'         , 'ScrollRight'     )
DefKey( 'a_s_f2'       , 'ScrollLeft'      )
DefKey( 'c_up'         , 'ScrollUp'        )    -- Scroll text up
DefKey( 'c_down'       , 'ScrollDown'      )    -- Scroll text down
DefKey( 'c_a_up'       , 'ScrollUp 3'      )    -- Scroll text up 3 lines
DefKey( 'c_a_down'     , 'ScrollDown 3'    )    -- Scroll text down 3 lines

; Undo ----------------------------------------------------------------------
DefKeyCategory( 'Undo')
DefKey( 'c_z'          , 'Undo1'           )
DefKey( 'c_y'          , 'Redo1'           )    -- was: 'FontList'
DefKey( 'c_s_z'        , 'Redo1'           )

; Key recording -------------------------------------------------------------
DefKeyCategory( 'Key recording')
DefKey( 'c_a_r'        , 'RecordKeys'      )    -- Start/stop recording keys
DefKey( 'c_s_r'        , 'PlaybackKeys'    )    -- Stop recording and execute recorded keys

; Clipboard -----------------------------------------------------------------
DefKeyCategory( 'Clipboard')
DefKey( 'c_c'          , 'Copy2Clip'       )    -- was: 'RepeatChange'
DefKey( 'c_v'          , 'DefaultPaste'    )    -- was: 'RepeatFindAllFiles'
DefKey( 'c_x'          , 'Cut'             )    -- was: 'ForceExpansion'

; Case ----------------------------------------------------------------------
DefKeyCategory( 'Case')
DefKey( 's_f1'         , 'CaseWord'        )
DefKey( 'c_f1'         , 'LowercaseWord'   )
DefKey( 'c_s_f1'       , 'UppercaseWord'   )
DefKey( 'a_f1'         , 'LowercaseMark'   )    -- was: 'TypeFrameChars'
DefKey( 'a_s_f1'       , 'UppercaseMark'   )

; Syntax expansion ----------------------------------------------------------
DefKeyCategory( 'Syntax expansion')
DefKey( 'a_x'          , 'ForceExpansion'  )

; Search --------------------------------------------------------------------
DefKeyCategory( 'Search')
DefKey( 'c_f'          , 'SearchDlg S'     )    -- Search dialog with blank replace entry field, was: 'RepeatFind'
DefKey( 'c_s_f'        , 'SearchDlg B'     )    -- Search dialog with blank entry fields
DefKey( 'c_r'          , 'SearchDlg R'     )
DefKey( 'f3'           , 'FindNext'        )    -- was: 'Quit'
DefKey( 's_f3'         , 'FindPrev'        )    -- was: 'ScrollDown'
DefKey( 'c_g'          , 'FindNext'        )    -- was: 'Ring_More', also defined as Sh+Esc
DefKey( 'c_s_g'        , 'FindPrev'        )
DefKey( 'c_t'          , 'ChangeFindNext'  )    -- was: 'PlaybackKeys'
DefKey( 'c_s_t'        , 'ChangeFindPrev'  )
DefKey( 'a_f3'         , 'FindNextAllFiles')
DefKey( 'a_s_f3'       , 'FindPrevAllFiles')

; Tags ----------------------------------------------------------------------
DefKeyCategory( 'Tags')
DefKey( 's_f9'         , 'TagScan'         )    -- Open a list box with tags of the current file

; Cursor stack --------------------------------------------------------------
DefKeyCategory( 'Cursor stack')
DefKey( 'c_s_up'       , 'PopPos'          )    -- Go to last pos. of cursor stack
DefKey( 'c_s_down'     , 'PushPos'         )    -- Add current cursor pos. to cursor stack

; Mark stack ----------------------------------------------------------------
DefKeyCategory( 'Mark stack')
DefKey( 'c_a_s_up'     , 'PopMark'         )    -- Restore last mark from stack (and remove it from stack)
DefKey( 'c_a_s_down'   , 'PushMark'        )    -- Save current mark to mark stack

; Undefined -----------------------------------------------------------------
DefKeyCategory( '')
UnDefKey( 's_f2')
UnDefKey( 'c_f3')
UnDefKey( 'c_s_f3')
UnDefKey( 's_f4')
UnDefKey( 'c_s_f4')
UnDefKey( 'a_s_f4')