Thomas,
Such a simple way to do exactly what I need. I love it.

Thanks a million,
John.

>Hi John,
>
>I am using some functions which are filled from within a special method, i.e. per BINDEVENT()
>
>

>* This code is used to generate the menue
>MakePopup()
>Add2Popup([\<1 My 1st MenuItem],  1,[-])
>Add2Popup([\<2 My 2nd MenuItem],  2,[-])
>Add2Popup([\-],                  98,[-])
>Add2Popup([\<0 Cancel],          99,[-])
>ShowPopup()
>IF VARTYPE(PopUpMenueSelection) = 'N'
>	DO CASE
>	CASE PopUpMenueSelection = 1
>		* Do something here
>	CASE PopUpMenueSelection = 2
>		* Do something there
>	ENDCASE
>ENDIF
>
>* These are the specific functions
>FUNCTION makepopup
>	* Create Popup-Menue
>	DEFINE POPUP Pop1 shortcut relative from mrow(), mcol()
>	* Declare public variable to hold the selected menue-value
>	PUBLIC PopupMenueSelection
>ENDFUNC
>**********************************************************
>FUNCTION add2popup
>LPARAMETERS vPrompt, vValue, vMessage
>	* create menue-entry
>	DEFINE BAR (vValue) OF Pop1 PROMPT vPrompt MESSAGE vPrompt
>ENDFUNC
>**********************************************************
>FUNCTION showpopup
>	* activate/show popup-menue
>	ON SELECTION popup pop1 PopupMenueSelection = BAR()
>	ACTIVATE POPUP Pop1
>	RELEASE POPUP Pop1 extended
>ENDFUNC
>