mouse at 1,1>I'm trying to pop up a shortcut menu. Should me a simple task, except that
>LPARAMETERS oMenuObj > >LOCAL oMenuObj, nBar, cPrompt > >WITH This > > nRow = MROW() + 1 > nCol = MCOL() - 7.5 > > ** Define the popup > DEFINE POPUP ShortCuts FROM nRow, nCol IN SCREEN SHORTCUT > > FOR nBar = 1 TO ALEN(.aMenuInfo, 1) > > cPrompt = .aMenuInfo[nBar, 1] > cPicture = .aMenuInfo[nBar, 2] > > IF EMPTY(cPrompt) > DEFINE BAR nBar OF ShortCuts PROMPT "\-" > ELSE > DEFINE BAR nBar OF ShortCuts PROMPT cPrompt PICTURE cPicture > ENDIF > > ENDFOR > > ** Define selection actions > ON SELECTION POPUP ShortCuts oMenuObj.MenuSelect() > > ** Show the popup > ACTIVATE POPUP ShortCuts > >ENDWITH > >RETURN >