view release on metacpan or  search on metacpan

t/custom.t  view on Meta::CPAN

		= @_;

	isa_ok ($glade, 'Gtk2::GladeXML');
	is ($creator, 'create_me', 'function name');
	is ($name, 'custom1');
	is ($string1, 'string1');
	is ($string2, 'string2, electric boogaloo');
	is ($int1, 42);
	is ($int2, 1138);

	# verify that complex user data made it through, alive
	is (ref($data), 'HASH');
	is ($data->{one}, 1);
	is ($data->{two}, 2);

	my $widget = Gtk2::Button->new;
	$widget->{something} = 'special';
	return $widget;
}

Gtk2::Glade->set_custom_handler (\&create_me, {one=>1, two=>2});