>>>>>* screenmethods.prg >>>>>* >>>>>* Use the following to modify _SCREEN methods: >>>>>*_SCREEN.NewObject("oSH","ScreenHook","screenmethods.prg") >>>>>* >>>>>DEFINE CLASS ScreenHook AS custom >>>>>oscr = _SCREEN >>>>>PROCEDURE oscr.RightClick >>>>> DO yourmenu.mpr >>>>>ENDPROC >>>>>ENDDEFINE >>>>>>>>>
* ********************************************************* * * * * 04/05/01 MEN1.MPR 22:32:36 * * * ********************************************************* * * * * Author's Name * * * * Copyright (C) 2001 Company Name * * Address * * City, Zip * * * * Description: * * This PROGRAM was automatically generated BY GENMENU. * * * ********************************************************* * ********************************************************* * * * * Menu Definition * * * ********************************************************* * DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR 1 OF shortcut PROMPT "Header" ; MESSAGE "Status Bar" COLOR RGB(255,255,255,0,0,0) FONT "TAHOMA" STYLE 'B' DEFINE BAR 2 OF shortcut PROMPT "\-" DEFINE BAR 3 OF shortcut PROMPT "Option2" ON SELECTION BAR 3 OF shortcut wait window "Option 2" ACTIVATE POPUP shortcut