view release on metacpan or  search on metacpan

xs/DiaCanvasItem.xs  view on Meta::CPAN

	PUSHs (sv_2mortal (newSVnv (y2)));

##  gboolean dia_canvas_item_get_shape_iter (DiaCanvasItem *item, DiaCanvasIter *iter)
DiaCanvasIter_copy *
dia_canvas_item_get_shape_iter (item)
	DiaCanvasItem *item
    PREINIT:
	DiaCanvasIter iter;
    CODE:
	if (!dia_canvas_item_get_shape_iter (item, &iter))
		XSRETURN_UNDEF;
	RETVAL = &iter;
    OUTPUT:
	RETVAL

##  gboolean dia_canvas_item_shape_next (DiaCanvasItem *item, DiaCanvasIter *iter)
gboolean
dia_canvas_item_shape_next (item, iter)
	DiaCanvasItem *item
	DiaCanvasIter *iter

##  DiaShape* dia_canvas_item_shape_value (DiaCanvasItem *item, DiaCanvasIter *iter)
DiaShape *
dia_canvas_item_shape_value (item, iter)
	DiaCanvasItem *item
	DiaCanvasIter *iter

##  void dia_canvas_item_preserve_property (DiaCanvasItem *item, const gchar *property_name)
void
dia_canvas_item_preserve_property (item, property_name)
	DiaCanvasItem *item
	const gchar *property_name

##  void dia_canvas_item_set_child_of (DiaCanvasItem *item, DiaCanvasItem *new_parent)
void
dia_canvas_item_set_child_of (item, new_parent)
	DiaCanvasItem *item
	DiaCanvasItem_ornull *new_parent

# --------------------------------------------------------------------------- #

=for apidoc __hide__
=cut
void
_INSTALL_OVERRIDES (const char *package)
    PREINIT:
	GType type;
	DiaCanvasItemClass *class;
    CODE:
	type = gperl_object_type_from_package (package);

	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

void
UPDATE (item, ...)
	DiaCanvasItem *item
    ALIAS:
    PREINIT:
	DiaCanvasItemClass *class;
	GType this, parent;
    CODE:
	/* look up his parent */
	this = G_OBJECT_TYPE (item);
	parent = g_type_parent (this);
	if (!g_type_is_a (parent, DIA_TYPE_CANVAS_ITEM))
		croak ("parent of %s is not a DiaCanvasItem",
		       g_type_name (this));

	/* that's our boy.  call one of his functions. */
	class = g_type_class_peek (parent);

	switch (ix) {
	    case 0: /* UPDATE */
		if (class->update)
			class->update (item,
			               SvDiaAffine (ST (1)));
		break;
	    default:
		g_assert_not_reached ();
	}

# --------------------------------------------------------------------------- #

MODULE = Gnome2::Dia::CanvasItem	PACKAGE = Gnome2::Dia::CanvasText	PREFIX = dia_canvas_text_

BOOT:
	gperl_set_isa ("Gnome2::Dia::CanvasText", "Gnome2::Dia::CanvasEditable");

# --------------------------------------------------------------------------- #

MODULE = Gnome2::Dia::CanvasItem	PACKAGE = Gnome2::Dia::CanvasLine	PREFIX = dia_canvas_line_

##  gint dia_canvas_line_get_closest_segment (DiaCanvasLine *line, gdouble x, gdouble y)
gint
dia_canvas_line_get_closest_segment (line, x, y)
	DiaCanvasLine *line
	gdouble x
	gdouble y