>* 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 >