制作具有剪切、复制、粘贴、撤消、重做、等功能的菜单？

DEFINE   POPUP   快捷菜单   SHORTCUT   RELATIVE   FROM   MROW(),MCOL()  
  DEFINE   BAR   _med_undo   OF   快捷菜单   PROMPT   "撤消(\<U)"   ;  
  KEY   CTRL+Z,   "Ctrl+Z"  
  DEFINE   BAR   _med_redo   OF   快捷菜单   PROMPT   "重做(\<D)"   ;  
  KEY   CTRL+R,   "Ctrl+R"  
  DEFINE   BAR   3   OF   快捷菜单   PROMPT   "\-"  
  DEFINE   BAR   _med_cut   OF   快捷菜单   PROMPT   "剪切(\<T)"   ;  
  KEY   CTRL+X,   "Ctrl+X"  
  DEFINE   BAR   _med_copy   OF   快捷菜单   PROMPT   "复制(\<C)"   ;  
  KEY   CTRL+C,   "Ctrl+C"  
  DEFINE   BAR   _med_paste   OF   快捷菜单   PROMPT   "粘贴(\<P)"   ;  
  KEY   CTRL+V,   "Ctrl+V"   ;  
  SKIP   FOR   Len(_ClipText)   =   0  
  DEFINE   BAR   _med_clear   OF   快捷菜单   PROMPT   "清除(\<A)"  
  DEFINE   BAR   8   OF   快捷菜单   PROMPT   "\-"  
  DEFINE   BAR   _med_slcta   OF   快捷菜单   PROMPT   "全选(\<L)"   ;  
  KEY   CTRL+A,   "Ctrl+A"  
   
  ACTIVATE   POPUP   快捷菜单