Gtk-Perl

 view release on metacpan or  search on metacpan

Gtk/xs/GtkObject.xs  view on Meta::CPAN

void destroy_data(gpointer data)
{
	SvREFCNT_dec((SV*)data);
}


MODULE = Gtk::Object		PACKAGE = Gtk::Object		PREFIX = gtk_object_

#ifdef GTK_OBJECT

# FIXME: See if we need signal_connect_while_alive

int
signal_connect(object, event, handler, ...)
	Gtk::Object	object
	char *	event
	SV *	handler
	ALIAS:
		Gtk::Object::signal_connect = 0
		Gtk::Object::signal_connect_after = 1
	CODE:



( run in 0.933 second using v1.01-cache-2.11-cpan-39bf76dae61 )