Example Shows How to Pass Objects to FLL

MORE INFORMATION

FoxPro Code

* Place the following code in the Click event of a button on a form:
SET LIBRARY TO clearwind.FLL ADDITIVE
= CLEARWIND(this)  && we are passing the button object to the C routine
RELEASE LIBRARY clearwind
				

C Code

#include <pro_ext.h>

void FAR ClearObjWin(ParamBlk FAR *parm)
{
   WHANDLE Wh;
   \\ Note that you are passing the address to the Value structure.
   Wh = _WGetObjectClientWindow(&parm->p[0].val);
   _WClear(Wh);
};

\\ Note below that the parameter type is "O" (for Object).
FoxInfo myFoxInfo[] =
{
   {"CLEARWIND", (FPFI) ClearObjWin, 1, "O"},
};

FoxTable _FoxTable =
{
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};