GETACTIVE()
 Return the currently active Get object
------------------------------------------------------------------------------
 Syntax

     GETACTIVE() --> objGet

 Returns

     GETACTIVE() returns the current active Get object within the current
     READ.  If there is no READ active when GETACTIVE() is called, it returns
     NIL.

 Description

     GETACTIVE() is an environment function that provides access to the
     active GET object during a READ.  The current active Get object is the
     one with input focus at the time GETACTIVE() is called.

 Examples

     .  This code uses a WHEN clause to force control to branch to a
        special reader function.  Within this function, GETACTIVE() retrieves
        the active Get object:

        @ 10, 10 GET x
        @ 11, 10 GET y WHEN MyReader()
        @ 12, 10 GET z
        READ

        // Called just before second get (above)
        // becomes current
        FUNCTION MyReader
           LOCAL objGet               // Active Get holder
           objGet := GETACTIVE()      // Retrieve current
                                      // active Get
           BarCodeRead( objGet )
           RETURN (.F.)               // Causes Get to be
                                      // skipped in READ

 Files:  Library is CLIPPER.LIB, source file is Getsys.prg.