DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 165 Width = 214 Desktop = .T. ShowWindow = 2 DoCreate = .T. Caption = "Test Cut/Paste etc" Name = "Form1" ADD OBJECT edit1 AS editbox WITH ; Height = 139, ; Left = 12, ; Top = 6, ; Width = 187, ; Name = "Edit1" PROCEDURE Destroy POP MENU _MSYSMENU ENDPROC PROCEDURE Load PUSH MENU _MSYSMENU DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR _med_cut OF _medit PROMPT "Cut" KEY CTRL+X, "Ctrl+X" ; MESSAGE "Removes the selection and places it onto the Clipboard" DEFINE BAR _med_copy OF _medit PROMPT "Copy" KEY CTRL+C, "Ctrl+C" ; MESSAGE "Copies the selection onto the Clipboard" DEFINE BAR _med_paste OF _medit PROMPT "Paste" KEY CTRL+V, "Ctrl+V" ; MESSAGE "Pastes the contents of the Clipboard" ENDPROC ENDDEFINE