I'm trying to pop up a shortcut menu. Should me a simple task, except that
I can't seem to get it to popup where I want it.

I have a button on a toolbar that calls the code below. if theres a form
up, then the menu is in the wrong place. and I DO have the IN SCREEN
clause. So the menu location should not be influenced by the form.

The menu should pop up at the lower left corner of the toolbar button, regardless
of where the toolbar is. If there is no form open, all works ok, but with a form
open, it comes up in the wrong place.

Here's the code:

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