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

#include "GtkDefs.h"

MODULE = Gtk::RadioButton		PACKAGE = Gtk::RadioButton		PREFIX = gtk_radio_button_

#ifdef GTK_RADIO_BUTTON

Gtk::RadioButton_Sink
new(Class, label=0, previous=0)
	SV *	Class
	SV *	label
	Gtk::RadioButton	previous
	ALIAS:
		Gtk::RadioButton::new = 0
		Gtk::RadioButton::new_with_label = 1
	CODE:
	{
		GSList * group = 0;
		
		if (previous)
			group = gtk_radio_button_group(previous);
		
		if (label && SvOK(label) )
			RETVAL = (GtkRadioButton*)(gtk_radio_button_new_with_label(group, SvPV(label,PL_na)));
		else
			RETVAL = (GtkRadioButton*)(gtk_radio_button_new(group));
	}
	OUTPUT:
	RETVAL

void
gtk_radio_button_set_group(radio_button, other_button)
	Gtk::RadioButton	radio_button
	Gtk::RadioButton	other_button
	CODE:
	gtk_radio_button_set_group(radio_button, gtk_radio_button_group(other_button));

void
group(radiobutton)
	Gtk::RadioButton	radiobutton
	PPCODE:
	{
		GSList * group = 0;
		group = gtk_radio_button_group(radiobutton);
		while(group) {
			EXTEND(sp, 1);
			PUSHs(sv_2mortal(newSVGtkRadioButton(group->data)));
			group=group->next;
		}
	}

#if GTK_HVER >= 0x010200

Gtk::RadioButton_Sink
gtk_radio_button_new_from_widget (Class, group)
	SV *	Class
	Gtk::RadioButton	group
	CODE:
	RETVAL = (GtkRadioButton*)(gtk_radio_button_new_from_widget(group));
	OUTPUT:
	RETVAL

Gtk::RadioButton_Sink
gtk_radio_button_new_with_label_from_widget (Class, group, label)
	SV *	Class
	Gtk::RadioButton	group
	char *	label
	CODE:
	RETVAL = (GtkRadioButton*)(gtk_radio_button_new_with_label_from_widget(group, label));
	OUTPUT:
	RETVAL

#endif


#endif