DEFINE POPUP myShortcut SHORTCUT RELATIVE FROM MROW(),MCOL() DEFINE BAR 1 OF myShortcut PROMPT 'first item' KEY ALT+O DEFINE BAR 2 OF myShortcut PROMPT 'second one' KEY ALT+P DEFINE BAR 3 OF myShortcut PROMPT 'thirdy' KEY ALT+V ON BAR 3 OF myShortcut ACTIVATE POPUP myMulti DEFINE BAR 4 OF myShortcut PROMPT '\-' ON SELECTION POPUP myShortcut; DO submehu WITH PROMPT(), POPUP() DEFINE POPUP myMulti SHORTCUT RELATIVE FROM MROW()+9,MCOL()+37 DEFINE BAR 1 OF myMulti PROMPT 'Doc HTML' KEY CTRL+H, '^H' DEFINE BAR 2 OF myMulti PROMPT 'Doc Word' ; KEY CTRL+W, '^W' ACTIVATE POPUP myShortcut NOWAIT PUSH POPUP myShortcut RETURN PROCEDURE submehu LPARAMETERS lcprompt, lcpopup *SET STEP ON WAIT 'The choice ' + lcprompt + ' and ' + lcpopup WINDOW nowait IF BAR() = 11 *ACTIVATE POPUP myMulti *PUSH POPUP myMulti ENDIF