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

Syntax

@ 15, 15 GET pMemvar VALID ARRAY_FILL( pMemvar, pArray1, pArray2 ;
                                       [, cHeader[, nTr [, nTc ;
                                       [, nBr [, nBc ]]]]] )

Purpose

VALIDation routine to scroll a lookup table.

Arguments

     pMemvar -- item to validate

     pArray1 -- validate against these

     cArray2 -- array of descriptions to display in window

     cHeader -- optional header to go at top of pop-up window

     nTr...nBc -- optional window co-ordinates

Setup

The lookup table is a hard-coded array. pArray1 elements are the values
you want selected. cArray2 elements are the descriptions you want
displayed.

Example

     LOCAL codes := { "THIS", "THAT" }, ;
           xlate := { "This here little thingie", ;
                      "That there little thingie" }, ;
           memvar := SPACE( 10 ), ;
           header := "Pick a thingie"

     @ 5, 10 GET memvar VALID ARRAY_FILL( memvar, codes, xlate, header )

     READ_IT()

Returns

.T. if pMemvar is in array1 or selected, else .F.

Side Effects

Crash on bad data or undefined array elements.

Artful Calls

SHADOWBOX

Source File

AA_RFILL.PRG