Ok, that worked - although I'm not sure why. What does the RELATIVE clause have to
do with the popup closing???




>Try
>

DEFINE POPUP popMonths shortcut RELATIVE FROM MROW(),MCOL()

>
>>In a label I have:
>>

>>This.Parent.MonthClicked(This.Parent)
>>

>>
>>
>>and in the MonthClicked routine I have:
>>
>>

>>** PROCEDURE MonthClicked
>>LPARAMETERS oThis
>>
>>  WITH This
>>
>>    DEFINE POPUP popMonths FROM MROW(), MCOL() MARGIN
>>
>>    DEFINE BAR 1 OF popMonths PROMPT "\<January"
>>    DEFINE BAR 2 OF popMonths PROMPT "\<February"
>>    DEFINE BAR 3 OF popMonths PROMPT "\<March"
>>    DEFINE BAR 4 OF popMonths PROMPT "\<April"
>>    DEFINE BAR 5 OF popMonths PROMPT "\<May"
>>    DEFINE BAR 6 OF popMonths PROMPT "\<June"
>>    DEFINE BAR 7 OF popMonths PROMPT "\<July"
>>    DEFINE BAR 8 OF popMonths PROMPT "\<August"
>>    DEFINE BAR 9 OF popMonths PROMPT "\<September"
>>    DEFINE BAR 10 OF popMonths PROMPT "\<October"
>>    DEFINE BAR 11 OF popMonths PROMPT "\<November"
>>    DEFINE BAR 12 OF popMonths PROMPT "\<December"
>>	
>>    ON SELECTION POPUP popMonths oThis.MonthSelected()
>>    ACTIVATE POPUP popMonths
>>
>>ENDWITH
>>
>>RETURN
>>

>>
>>Here is the MonthSelected routine:
>>
>>

>>** PROCEDURE MonthSelected
>>
>>  LOCAL nMonth, nDay, nYear, tDateTime, dDate
>>
>>  WITH This
>>
>>    nMonth  = BAR()
>>    nDay    = ._nDay
>>    nYear   = ._nYear
>>		
>>    tDateTime =	DATETIME(nYear, nMonth, nDay)
>>    dDate     = TTOD(tDateTime)
>>
>>    .LoadCalendar(dDate)
>>	
>>  ENDWITH
>>
>>RETURN
>>

>>
>>When a bar is selected, the code in the MonthSelected routine runs, but the popup stays
>>open. What gives?