view release on metacpan or  search on metacpan

xs/DiaCanvasItem.xs  view on Meta::CPAN

	if (!type)
		croak ("package '%s' is not registered with Gtk2-Perl",
		       package);

	if (!g_type_is_a (type, DIA_TYPE_CANVAS_ITEM))
		croak ("%s(%s) is not a DiaCanvasItem",
		       package, g_type_name (type));

	/* peek should suffice, as the bindings should keep this class
	 * alive for us. */
	class = g_type_class_peek (type);

	if (!class)
		croak ("internal problem: can't peek at type class for %s(%d)",
		       g_type_name (type), type);

	dia2perl_canvas_item_class_init (class);

=for apidoc Gnome2::Dia::CanvasItem::UPDATE __hide__
=cut