Hi David,
It worked fine for me. I put your code - with my revisions - in a program called foo. Here is the calling code:
set proc to foo
o = createobject("form1")
o.show
The following is foo.prg
**************************************************
*-- 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 _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_cut OF _medit PROMPT "Cu\
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "Removes the selection and places it onto the Clipboard"
DEFINE BAR _med_copy OF _medit PROMPT "\ KEY CTRL+C, "Ctrl+C" ;
MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR _med_paste OF _medit PROMPT "\ KEY CTRL+V, "Ctrl+V" ;
MESSAGE "Pastes the contents of the Clipboard"
ENDPROC
PROCEDURE Destroy
POP MENU _MSYSMENU
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************