ON KEY LABEL CTRL+x HandleEditKey('_MED_CUT','_MEDIT')
ON KEY LABEL CTRL+C HandleEditKey('_MED_COPY','_MEDIT')
ON KEY LABEL CTRL+V HandleEditKey('_MED_PASTE','_MEDIT')
ON KEY LABEL CTRL+Z HandleEditKey('_MED_UNDO','_MEDIT')
ON KEY LABEL CTRL+R HandleEditKey('_MED_REDO','_MEDIT')
*--- call your MPR here
*-- do wcmenu.mpr
MenuSetup()
RELEASE PAD _MEDIT OF _MSYSMENU
READ EVENTS
ON KEY LABEL CTRL+x
ON KEY LABEL CTRL+C
ON KEY LABEL CTRL+V
ON KEY LABEL CTRL+Z
ON KEY LABEL CTRL+R
PROC HandleEditKey(tcBarName,tcPadName)
SYS(1500,tcBarName,tcPadName)
ENDPROC
PROC MenuSetup
*-- define the edit pad without a prompt or key or message
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT '' COLOR SCHEME 3 ;
MESSAGE ''
DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _medit PROMPT '\< Undo' ;
MESSAGE 'Undoes the last command or action'
DEFINE BAR _med_redo OF _medit PROMPT 'Re\< do' ;
MESSAGE 'Repeats the last command or action'
DEFINE BAR _med_cut OF _medit PROMPT 'Cu\< t' ;
MESSAGE 'Removes the selection and places it onto the Clipboard'
DEFINE BAR _med_copy OF _medit PROMPT '\< Copy' ;
MESSAGE 'Copies the selection onto the Clipboard'
DEFINE BAR _med_paste OF _medit PROMPT '\< Paste' ;
MESSAGE 'Pastes the contents of the Clipboard'
DEFINE BAR _med_slcta OF _medit PROMPT 'Se\< lect All' ;
MESSAGE 'Selects all text or items in the current window'
ENDPROC