view release on metacpan or  search on metacpan

XScreenSaver.xs  view on Meta::CPAN

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#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)));
            }
        }

int
xss_root_window()
    CODE:
        if (!dpy) {
            dpy = XOpenDisplay(0);
        }
        RETVAL = DefaultRootWindow(dpy);
    OUTPUT:
        RETVAL