view release on metacpan or  search on metacpan

XScreenSaver.xs  view on Meta::CPAN

#include <X11/Xlib.h>

static Display *dpy = 0;

MODULE = SDLx::XScreenSaver		PACKAGE = SDLx::XScreenSaver		

void
xss_viewport_dimensions(window_id)
    int window_id
    PPCODE:
        XWindowAttributes xwa;
        if (window_id) {
            if (!dpy) {
                dpy = XOpenDisplay(0);
            }
            if (dpy) {
                XGetWindowAttributes(dpy, window_id, &xwa);
                XPUSHs(sv_2mortal(newSVnv(xwa.width)));
                XPUSHs(sv_2mortal(newSVnv(xwa.height)));
            }