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::Progress		PACKAGE = Gtk::Progress		PREFIX = gtk_progress_

#ifdef GTK_PROGRESS

void
gtk_progress_set_show_text(self, show_text)
	Gtk::Progress	self
	gint	show_text

void
gtk_progress_set_text_alignment(self, x_align, y_align)
	Gtk::Progress	self
	gfloat	x_align
	gfloat	y_align

void
gtk_progress_set_format_string(self, format)
	Gtk::Progress	self
	char *	format

void
gtk_progress_set_adjustment(self, adjustment)
	Gtk::Progress	self
	Gtk::Adjustment	adjustment

# FIXME: DEPRECATED? 

void
gtk_progress_reconfigure(self, value, min, max)
	Gtk::Progress	self
	gfloat	value
	gfloat	min
	gfloat	max
	ALIAS:
		Gtk::Progress::configure = 0
		Gtk::Progress::reconfigure = 1
	CODE:
#if (GTK_HVER < 0x010100) || (GTK_HVER > 0x010105)
	gtk_progress_configure(self, value, min, max);
#else
	gtk_progress_reconfigure(self, value, min, max);
#endif

void
gtk_progress_set_percentage(self, percentage)
	Gtk::Progress	self
	gfloat	percentage

void
gtk_progress_set_value(self, value)
	Gtk::Progress	self
	gfloat	value

gfloat
gtk_progress_get_value(self)
	Gtk::Progress	self

void
gtk_progress_set_activity_mode(self, activity_mode)
	Gtk::Progress	self
	guint	activity_mode

char *
gtk_progress_get_current_text(self)
	Gtk::Progress	self

char *
gtk_progress_get_text_from_value(self, value)
	Gtk::Progress	self
	gfloat	value

gfloat
gtk_progress_get_current_percentage(self)
	Gtk::Progress	self

void
gtk_progress_get_percentage_from_value(self, value)
	Gtk::Progress	self
	gfloat	value

#endif