Click above to get retro games delivered to your door ever month!

Syntax

        AC_MENU( nTr, nTc, nBr, nBc, aPrompt ;
                 [, aPermit[, cHdr[, nBoxno ;
                 [, lRestore[, nColour[, nFirst ]]]]] )

Purpose

Pop up a vertical ACHOICE() menu.

Arguments

     nTr -- top row of pop-up box

     nTc -- leftmost column of pop-up box

     nBr -- bottom row of pop-up box

     nBc -- rightmost column of pop-up box

     aPrompt -- character array of menu prompts

     aPermit -- if passed, logical array of permissions;
                    defaults to .T. for each selection

     cHdr --    if passed, character string to use
                    as header for pop-up box; defaults to no header

     nBoxno --  if passed, box number for DRAW_BOX(),
                    else 3

     lRestore   if passed, logical indicating whether
                    to restore screen upon selection of a menu item, else
                    .F.

     nColour -- if passed, number indicating colour to use, else 7

     nFirst -- if passed, initial selection to highlight, default 1

Setup

Declare and initialise aPrompt[] before calling AC_MENU().

Example

     LOCAL prompts := { "First choice", "Second choice" }
     choice = AC_MENU( 10, 30, 13, 48, prompts, ;
                       .T., "Go for it!" )

Returns

User's choice, or 0 if ESCAPE was pressed.

Side Effects

Paints the menu, restores the screen if asked to.

Artful Calls

DRAW_BOX, PARTCOLOR, SYSCOLOR

Source File

AA_AMENU.PRG