_WGetPort( ) (Rutina de biblioteca API)

Devuelve el WHANDLE de la ventana que está seleccionada actualmente para el resultado que se muestra al usuario.

WHANDLE _WGetPort(void any)
void any;                     /* Pointer. */

Ejemplo

El ejemplo siguiente muestra el controlador de ventana que devuelve _WGetPort( ) cuando se cambia el puerto de salida actual.

Código Visual FoxPro

SET LIBRARY TO WGETPORT

Código C

#include <pro_ext.h>

void putLong(long n, int width)
{
   Value val;

   val.ev_type = 'I';
   val.ev_long = n;
   val.ev_width = width;

   _PutValue(&val);
}

FAR Example(ParamBlk FAR *parm)
{

   WHANDLE wh;
   WHANDLE oldPort;

   wh = _WOpen(2,10,23,70,WEVENT | CLOSE,WINDOW_SCHEME,(Scheme FAR *)0,
      WO_SYSTEMBORDER);
   _WShow(wh);

   _PutStr("\n1) _WGetPort() ="); putLong(_WGetPort(), 10);

   oldPort = _WSetPort(wh);
   _PutStr("\n2) _WSetPort(wh) ="); putLong(oldPort, 10);
   _PutStr("\n3) _WGetPort() ="); putLong(_WGetPort(), 10);

   oldPort = _WSetPort(oldPort);
   _PutStr("\n4) _WSetPort(oldPort) =");  putLong(oldPort, 10);

   _PutStr("\nShould be back where we started.");
}

FoxInfo myFoxInfo[] = {
   {"ONLOAD", (FPFI) Example, CALLONLOAD, ""},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

Vea también

_WhToHwnd( ) (Rutina de biblioteca API) | _WGetObjectClientWindow( ) (Rutina de biblioteca API) | _GetObjectProperty( ) (Rutina de biblioteca API) | GETOBJECT( ) (Función)