************************************************** *-- Form: form1 (c:\development\harris\phone\test.scx) *-- ParentClass: form *-- BaseClass: form * 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 Load PUSH MENU _MSYSMENU SET SYSMENU TO DEFINE POPUP RWR0M05MA MARGIN RELATIVE DEFINE BAR _med_undo OF RWR0M05MA PROMPT "\<Undo" ; KEY CTRL+Z DEFINE BAR _med_redo OF RWR0M05MA PROMPT "Re\<do" ; KEY CTRL+R DEFINE BAR _med_cut OF RWR0M05MA PROMPT "Cu\<t" ; KEY CTRL+X DEFINE BAR _med_copy OF RWR0M05MA PROMPT "\<Copy" ; KEY CTRL+C DEFINE BAR _med_paste OF RWR0M05MA PROMPT "\<Paste" ; KEY CTRL+V DEFINE BAR _med_slcta OF RWR0M05MA PROMPT "Se\<lect All" ; KEY CTRL+A ENDPROCPROCEDURE Destroy