* BUG1: The clause MARGIN is added without a explicit declaration
* ISSUE: the popup is insensible of the MouseWheel scrolling

CLEAR

DIMENSION aItems[60,1]
aItems='test'
aItems[3]='33333333333333333333'
aItems[ALEN(aItems)]='last last last last last last last last '

DEFINE POPUP ContextMenu FROM MROW(),MCOL() SHORTCUT
FOR k=1 TO ALEN(aItems)
	DEFINE BAR k OF ContextMenu PROMPT aItems[k]
NEXT

* BUG2: The bottom arrow scroll is a line before the last popup row,
*       and it is insensible of the mouse click


ACTIVATE POPUP ContextMenu
RELEASE POPUPS ContextMenu 


DEFINE POPUP ContextMenu FROM MROW(),MCOL() SHORTCUT SCROLL
FOR k=1 TO ALEN(aItems)
	DEFINE BAR k OF ContextMenu PROMPT aItems[k]
NEXT

* BUG3: the right scroll is partially cut

ACTIVATE POPUP ContextMenu
RELEASE POPUPS ContextMenu