ACTIVATE POPUP notrelat

KEY <key label> [, <expC2>]

+---------------------------------+
|         Program Example         |
+---------------------------------+
In this example, menu bar named MAINMENU is defined with two menu
pads.  Two popups, one for each menu pad, are defined with DEFINE POPUP.
Options are placed in each popup with several DEFINE BAR commands.  When
one of popup options is chosen, appropriate ON SELECTION is executed,
passing two parameters to TMENU routine.  TMENU routine then displays
appropriate message.

CLEAR
DEFINE MENU mainmenu
DEFINE PAD invoices  OF mainmenu PROMPT ' \<Invoices '  AT 2,00
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,1
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(), PROMPT()

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(), PROMPT()

ACTIVATE MENU mainmenu

PROCEDURE tmenu
PARAMETER mpopup, mprompt

DO CASE
        CASE mpopup = 'INVPOP'
                WAIT WINDOW 'Selected prompt of popup invpop is: ' + mprompt
        CASE mpopup = 'CUSTPOP'
                WAIT WINDOW 'Selected prompt of popup custpop is: ' + mprompt
ENDCASE

DEACTIVATE POPUP
RETURN

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

See Also:  ACTIVATE POPUP, DEACTIVATE POPUP, DEFINE POPUP, HIDE POPUP,
ON BAR, ON SELECTION BAR, MENU - System Menu Names, RELEASE, SET
MESSAGE, SHOW POPUP, SET SYSMENU

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