+---------------------------------+
|               BAR               |
+---------------------------------+
BAR()

-----------------------------------
Returns number of last option selected from popup.
Return value - Numeric
-----------------------------------

+---------------------------------+
|            Example              |
+---------------------------------+
In this example, menu bar named MAINMENU is defined with two menu pads,
INVOICES and CUSTOMERS.  When menu pad is chosen, corresponding popup is
activated by ON SELECTION PAD.  When option is chosen from popup,
corresponding prompt and bar number is passed to TMENU routine by ON
SELECTION POPUP.  BAR() provides TMENU routine with bar number that was
chosen.

CLEAR
DEFINE MENU mainmenu
DEFINE PAD invoices  OF mainmenu PROMPT ' \<Invoices '  AT 2,20
DEFINE PAD customers OF mainmenu PROMPT ' \<Customers ' AT 2,20
ON SELECTION PAD invoices OF mainmenu ACTIVATE POPUP invpop
ON SELECTION PAD customers OF mainmenu ACTIVATE POPUP custpop

DEFINE POPUP invpop FROM 4,01
DEFINE BAR  1 OF invpop PROMPT '\<The invoice stack'
DEFINE BAR  2 OF invpop PROMPT '\<Print one or more invoices'
DEFINE BAR  3 OF invpop PROMPT '\<Show me what my sales are'
ON SELECTION POPUP invpop DO tmenu WITH POPUP(), BAR()

DEFINE POPUP custpop FROM 4,14
DEFINE BAR  1 OF custpop PROMPT '\<Look at the Customer info'
DEFINE BAR  2 OF custpop PROMPT 'L\<ist my customers'
DEFINE BAR  3 OF custpop PROMPT '\<Make customer labels'
DEFINE BAR  4 OF custpop PROMPT '\<The Customer Ledger'
ON SELECTION POPUP custpop DO tmenu WITH POPUP(), BAR()

ACTIVATE MENU mainmenu

PROCEDURE tmenu
PARAMETER mpopup, mbar
HIDE POPUP ALL
DO CASE
        CASE mpopup = 'INVPOP'
                @ 5,0 SAY 'Selected bar of popup invpop: #' + LTRIM(STR(mbar))
        CASE mpopup = 'CUSTPOP'
                @ 5,0 SAY 'Selected bar of popup custpop: #' + LTRIM(STR(mbar))
ENDCASE
WAIT
CLEAR
DEACTIVATE POPUP
RETURN

-----------------------------------

See Also:  ACTIVATE POPUP, DEFINE BAR, DEFINE POPUP

-----------------------------------