#include <pro_ext.h>
FAR WOpen(ParamBlk FAR *parm)
{
_RetInt(_WOpen(2, 2, 20, 70, WEVENT | CLOSE, WINDOW_SCHEME,
(Scheme FAR *) 0, WO_SYSTEMBORDER), 10);
}
FAR WShow(ParamBlk FAR *parm)
{
_WShow(parm->p[0].val.ev_long);
}
FoxInfo myFoxInfo[] = {
{"WOPEN", (FPFI) WOpen, 0, ""},
{"WSHOW", (FPFI) WShow, 1, "I"},
};
FoxTable _FoxTable = {
(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
}; |