lParameters loObject * ********************************************************* * * * * Menu Definition * * * ********************************************************* * DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR _med_copy OF shortcut PROMPT "\<Copy" ; KEY CTRL+C, "Ctrl+C" ; SKIP FOR loObject.SelLength = 0 ; MESSAGE "Copies the selection onto the Clipboard" DEFINE BAR _med_cut OF shortcut PROMPT "Cu\<t" ; KEY CTRL+X, "Ctrl+X" ; SKIP FOR loObject.SelLength = 0 ; MESSAGE "Removes the selection and places it onto the Clipboard" DEFINE BAR _med_paste OF shortcut PROMPT "\<Paste" ; KEY CTRL+V, "Ctrl+V" ; SKIP FOR len(_ClipText)=0 ; MESSAGE "Pastes the contents of the Clipboard" DEFINE BAR _mfi_sp100 OF shortcut PROMPT "\-" DEFINE BAR _med_find OF shortcut PROMPT "\<Find..." ; KEY CTRL+F, "Ctrl+F" ; MESSAGE "Searches for specified text" DEFINE BAR _med_finda OF shortcut PROMPT "Find A\<gain" ; KEY CTRL+G, "Ctrl+G" ; MESSAGE "Repeats the last search" DEFINE BAR _med_repl OF shortcut PROMPT "R\<eplace..." ; KEY CTRL+L, "Ctrl+L" ; MESSAGE "Replaces specified text with different text" DEFINE BAR _mfi_sp200 OF shortcut PROMPT "\-" DEFINE BAR _med_slcta OF shortcut PROMPT "Se\<lect All" ; KEY CTRL+A, "Ctrl+A" ; MESSAGE "Selects all text or items in the current window" ACTIVATE POPUP shortcut