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

 twGet( nRow, nCol, _wGetBlk, _wGetName, GetList,;
        _wGpicture, _wGcolor, wWhenBlk, wValidBlk )
 ----------------------------------------------------------------------------
     Add a GET object to the current getlist. In this version, the
     RANGE clause is not implemented. You can get the required result
     in a VALID. This function was added at the request of users. It
     offers the basic range of options in the Clipper GET system. The
     display attribute is defaulted to the current window text colour,
     ie., the active GET is displayed in the enhanced colour and
     inactive ones in the unselected colour. Code blocks are passed to
     avoid macro operations within the library. See FIELDBLOCK() in the
     Clipper documentation for a description of GET/SET blocks.

       Arguments:

     Unless the FIRST FIVE parameters are passed, this function does
     nothing!

     nRow      - 'N' Relative Window Row.

     nCol      - 'N' Relative Window Column.

     _wGetBlk  - 'B' Get/Set Code Block.

     _wGetName - 'C' Get Variable Name as string.

     GetList   - 'A' Current getlist. You can't add to your LOCAL
                     getlist unless you pass a reference to it.

     wGpicture - 'C' Clipper Picture String.

     wGcolor   - 'C' Clipper Colour String.

     wWhenBlk  - 'B' GET PreBlock.

     wValidBlk - 'B' GET PostBlock.

       Return:

     Current Window Handle

       Example:

     GetTry1 := SPACE( 10 )

     twGet( 4,9,{|cVal| IIF(cVal == NIL, GetTry1, GetTry1 := cVal)}, ;
            "GetTry1", ;
            GetList, ;
            REPL( "9", LEN( GetTry1 )),,, ;
            {|| !( "9" $ GetTry1 )} )

     Places a GET on the screen at relative window coordinates 4, 9
     allowing digit entry with a user defined function called during
     validation.