Gtk-Perl

 view release on metacpan or  search on metacpan

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

	unsigned int		action

void
gtk_item_factory_create_item(item_factory, entry, ...)
	Gtk::ItemFactory	item_factory
	Gtk::ItemFactory::Entry	entry
	CODE:
	{
		AV *args = NULL;
		/* Need to unref args when the item is destroyed.
		   Should be fixed at the Gtk+ level with a _full
		   version of the function.  */

		if (items > 2) {
			/* If we have a handler and arg-list, use it */
			args = newAV();
			PackCallbackST(args, 2);
		} else {
			SV *handler = ifactory_sv_get_handler(ST(1)); /* entry */
			if (handler) {
				args = newAV();
				PackCallback(args, handler);
			} else
				entry->callback = NULL;
		}
		gtk_item_factory_create_item(item_factory, entry, args, 1);
	}

void
gtk_item_factory_create_items(item_factory, ...)
	Gtk::ItemFactory	item_factory
	CODE:
	{
		int i;
		for (i = 1; i < items; i++) {
			GtkItemFactoryEntry *entry = SvGtkItemFactoryEntry(ST(i));
			SV *handler = ifactory_sv_get_handler(ST(i));
			AV *args = NULL;

			/* As above, args will leak memory :( */
			if (handler) {
				args = newAV();
				PackCallback(args, handler);
			} else
				entry->callback = NULL;
			gtk_item_factory_create_item(item_factory, entry, args, 1);
		}
	}

void
gtk_item_factory_delete_item(item_factory, path)
	Gtk::ItemFactory	item_factory
	char *	path

void
gtk_item_factory_delete_entry(item_factory, entry)
	Gtk::ItemFactory	item_factory
	Gtk::ItemFactory::Entry	entry

void
gtk_item_factory_popup(item_factory, x, y, mouse_button, time)
	Gtk::ItemFactory	item_factory
	unsigned int	x
	unsigned int	y
	unsigned int	mouse_button
	unsigned int	time

#	gtk_item_factory_set_translate_func

#endif

MODULE = Gtk::ItemFactory	PACKAGE = Gtk::Widget

#ifdef GTK_ITEM_FACTORY

Gtk::ItemFactory
item_factory(widget)
	Gtk::Widget	widget
	CODE:
	RETVAL = gtk_item_factory_from_widget (widget);
	OUTPUT:
	RETVAL

char*
item_factory_path(widget)
	Gtk::Widget	widget
	CODE:
	RETVAL = gtk_item_factory_path_from_widget (widget);
	OUTPUT:
	RETVAL

#endif



( run in 1.179 second using v1.01-cache-2.11-cpan-364913b4093 )