В следующем примере создается окно и для него с помощью _WhToHwnd( ) по учается значение Macintosh WindowPtr. Затем, чтобы проверить правильность возвращен ого программой _WhToHwnd( ) значения, оно используется в качестве аргумента в ескольких функциях Macintosh.

Код FoxPro for Macintosh

SET LIBRARY TO WHTOHWND

Код C

#include <windows.h>

#include <pro_ext.h>

FAR WhToHwndEx(ParamBlk FAR *parm)

{

WindowPtr theWindow;

WHANDLE wh;

wh = _WOpen(2,2,20,70,WEVENT | CLOSE,WINDOW_SCHEME,(Scheme FAR *)0,

WO_SYSTEMBORDER);

_WShow(wh);

// Get WindowPtr and use as a parameter to a Macintosh function

theWindow = _WhToHwnd(wh);

_Execute("Wait 'Press any key to hide the window.'");

HideWindow(theWindow);

_Execute("Wait 'Press any key to show the window.'");

ShowWindow(theWindow);

_Execute("Wait 'Press any key to close the window.'");

_WClose(wh);

}

FoxInfo myFoxInfo[] = {

{"ONLOAD", WhToHwndEx, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};