>Hi All,
>
>Anybody got tips on creating a shortcut menu (or whatever you call it), when you right-click and the little option box comes up. I've never done one and would like to try and head off any problems.
>
>Aloha,
>
>James

From one of my base class to provide cut and paste in shortcut menu.
Place the code in RightClick() method of the object.

MouseIsOver=SYS(1270)
IF Type('MouseIsOver')='O' AND MouseIsOver=This
	DEFINE POPUP QuickFill SHORTCUT FROM mrow(),mcol()
ELSE
	nRow =(wrows()/thisform.height) *(OBJTOCLIENT(this, 1)+this.height)
	nCol = (WCOLS()/thisform.width) *(OBJTOCLIENT(this, 2)+10) 
	DEFINE POPUP QuickFill SHORTCUT FROM nRow,nCol
ENDIF	

DEFINE BAR _med_cut OF QuickFill PROMPT "Cut" ;
KEY CTRL+X
DEFINE BAR _med_copy OF QuickFill PROMPT "Copy" ;
KEY CTRL+C
DEFINE BAR _med_paste OF QuickFill PROMPT "Paste" ;
KEY CTRL+V

ACTIVATE POPUP QuickFill
RELEASE POPUP QuickFill

HTH :-)