The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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

#include "GtkDefs.h"

MODULE = Gnome::Geometry		PACKAGE = Gnome::Geometry		PREFIX = gnome_geometry_

void
gnome_geometry_parse(Class, geometry)
	char *	geometry
	PPCODE:
	{
		int xpos, ypos, width, height;
		if (gnome_parse_geometry(geometry, &xpos, &ypos, &width, &height)) {
			EXTEND(sp, 4);
			PUSHs(sv_2mortal(newSViv(xpos)));
			PUSHs(sv_2mortal(newSViv(ypos)));
			PUSHs(sv_2mortal(newSViv(width)));
			PUSHs(sv_2mortal(newSViv(height)));
		}
	}

void
gnome_geometry_string(Class, window)
	Gtk::Window	window
	PPCODE:
	{
		char * s = gnome_geometry_string(window);
		if (s) {
			PUSHs(sv_2mortal(newSVpv(s, 0)));
			g_free(s);
		}
	}