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?