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 = Gtk::Arrow		PACKAGE = Gtk::Arrow		PREFIX = gtk_arrow_

#ifdef GTK_ARROW

Gtk::Arrow_Sink
new(Class, arrow_type=GTK_ARROW_RIGHT, shadow_type=GTK_SHADOW_OUT)
	SV *	Class
	Gtk::ArrowType	arrow_type
	Gtk::ShadowType	shadow_type
	CODE:
	RETVAL = (GtkArrow*)(gtk_arrow_new(arrow_type, shadow_type));
	OUTPUT:
	RETVAL

void
gtk_arrow_set(arrow, arrow_type, shadow_type)
	Gtk::Arrow	arrow
	Gtk::ArrowType	arrow_type
	Gtk::ShadowType	shadow_type

#endif