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

Syntax

FILL_OUT( cChar, cString, aArray[, ;
          nRow[, nCol[, lReading ]]] )

Purpose

Show the array element into which a one-character code is an index, or
pop-up a menu if the character code does not exist in cChar.

Arguments

     cChar -- one-character code to check

     cString -- list of legal character entries

     aArray -- array of translation strings

     nRow -- row on which to display string; defaults to current row

     nCol -- column at which to display string; defaults to current
                 column

     lReading -- whether a READ is in progress; determined internally
                     if not passed

Setup

Each character in cString is an index into aArray.

Example

     LOCAL _types := { "Cook   ", "Waiter ", ;
                       "Bouncer", "Manager", ;
                       SPACE(7) }, ;
           _codes := "CWBM ", mCode  := " "

     @ 5,10 GET emp_code VALID ;
            FILL_OUT( @mCode, @_codes, _types )
     READ_IT()

     ? mCode, _codes

Returns

.T. if cChar found in cString, else .F.

Side Effects

If cChar doesn't exist in cString, a menu of aArray will be presented
for the user to make a selection.

If a READ is in progress the string is painted in the unselected colour,
otherwise it is painted in the standard colour.

If cChar is passed by reference, on return it will contain the chosen
character code, defaulting to the last one if the user pressed ESC.

Artful Calls

PARTCOLOR, V_MENU

Source File

AA_FLOUT.PRG