view release on metacpan or  search on metacpan

WinObject.xs  view on Meta::CPAN

	PSWP	pswp
	ULONG	cswp

HBITMAP_or_error
WinSetDesktopBkgnd(hwndDesktop, pdskNew)
	HWND	hwndDesktop
	__const__ DESKTOP *	pdskNew

BOOL
WinSetFileIcon(pszFileName, pIconInfo)
	PCSZ	pszFileName
	__const__ ICONINFO *	pIconInfo

BOOL
WinSetMultWindowPos(hab, pswp, cswp)
	HAB	hab
	__const__ SWP *	pswp
	ULONG	cswp

BOOL
WinSetObjectData(hObject, pszSetupString)
	HOBJECT	hObject
	PCSZ	pszSetupString

BOOL
WinSetWindowPos(hwnd, hwndInsertBehind, x, y, cx, cy, fl)
	HWND	hwnd
	HWND	hwndInsertBehind
	LONG	x
	LONG	y
	LONG	cx
	LONG	cy
	ULONG	fl

BOOL
WinShutdownSystem(hab = perl_hab_GET(), hmq = REQUEST_HMQ)
	HAB	hab
	HMQ	hmq

BOOL
WinStoreWindowPos(pszAppName, pszKeyName, hwnd)
	PCSZ	pszAppName
	PCSZ	pszKeyName
	HWND	hwnd

LONG
WinQuerySysValue(iSysValue, hwndDesktop = HWND_DESKTOP)
	LONG iSysValue
	HWND hwndDesktop
    C_ARGS: hwndDesktop, iSysValue

BOOL
WinSetSysValue(iSysValue, lValue, hwndDesktop = HWND_DESKTOP)
	LONG iSysValue
	LONG lValue
	HWND hwndDesktop
    C_ARGS: hwndDesktop, iSysValue, lValue

SV *
ObjectClasses()
    PPCODE:
    {
	POBJCLASS list = EnumObjectClasses();
	POBJCLASS l = list, i = list;
	int c;

	while (l) {
	    l = l[0].pNext;
	    c++;
	}
	EXTEND(SP, 2*c);
	l = list;
	while (l) {
	    PUSHs(sv_2mortal(newSVpv(l[0].pszClassName, 0)));
	    PUSHs(sv_2mortal(newSVpv(l[0].pszModName,   0)));
	    l = l[0].pNext;
	}
	Safefree(list);
    }

SV *
ActiveDesktopPathname()

SV *
ObjectPath(hobject)
	HOBJECT	hobject

MODULE = OS2::WinObject		PACKAGE = OS2::WinObject	PREFIX = make

SV *
WindowPos(hwnd)
	HWND	hwnd;
    PPCODE:
    {
	SWP_or_error swpe = WindowPos(hwnd);

	if (!swpe.error) {
	    EXTEND(SP, 9);
	    PUSHs(sv_2mortal(newSViv(swpe.swp.x)));
	    PUSHs(sv_2mortal(newSViv(swpe.swp.y)));
	    PUSHs(sv_2mortal(newSViv(swpe.swp.cx)));
	    PUSHs(sv_2mortal(newSViv(swpe.swp.cy)));
	    PUSHs(sv_2mortal(newSVuv(swpe.swp.fl)));
	    PUSHs(sv_2mortal(newSVuv(swpe.swp.hwndInsertBehind)));
	    PUSHs(sv_2mortal(newSVuv(swpe.swp.hwnd)));
	    PUSHs(sv_2mortal(newSVuv(swpe.swp.ulReserved1)));
	    PUSHs(sv_2mortal(newSVuv(swpe.swp.ulReserved2)));
	}
    }

HWND
make_hwnd(h)
	ULONG h