>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
>**************************************************
Hi again John.
Well I ran that code - just as above and it doesn't work at all. I'm running VFP 5.0a with default settings.
What can be wrong?
Dave