* 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