no cigar :-)

here is my method code which is called from the rightclick method of a textbox:

....

* at this pont x1 contains all availble numbers like:
x1=[2589]
* the menu should 4 pads showing either 2 or 5 ...
DEFINE POPUP _SC SHORTCUT RELATIVE FROM MROW(),MCOL()
FOR I = 1 TO LEN(x1)
	x2=SUBSTR(x1,I,1)
	x3=[DEFINE BAR ]+x2+[  OF _SC PROMPT "]+x2+["]
	&x3
	x4=[ON SELECTION BAR ]+TRANSFORM(i)+[ OF _SC  _Screen.ActiveForm.ActiveControl.MenuSelected(PAD())]
	&x4
ENDFOR

ACTIVATE POPUP _SC

This throws the following error: no menu item defined



Peter
>>
>

>ON SELECTION BAR 3 OF shortcut _SCREEN.ActiveForm.activecontrol.value = 2
>
>or
>ON SELECTION BAR 3 OF shortcut .activecontrol.value = 2
>
>WITH m.thisform
>  ACTIVATE POPUP shortcut
>ENDWITH
>

>
>>
>>Peter
>>(no I have to do some real work :-)