Gtk-Perl

 view release on metacpan or  search on metacpan

Bonobo/xs/BonoboWidget.xs  view on Meta::CPAN

	char *	goad_id
	CORBA::Object	uih
	CODE:
	RETVAL = bonobo_widget_new_control (goad_id, uih);
	OUTPUT:
	RETVAL

Gtk::Widget_OrNULL_Up
bonobo_widget_new_control_from_objref (Class, control, uih)
	SV *	Class
	CORBA::Object	control
	CORBA::Object	uih
	CODE:
	RETVAL = bonobo_widget_new_control_from_objref (control, uih);
	OUTPUT:
	RETVAL

Gnome::BonoboControlFrame
bonobo_widget_get_control_frame (bw)
	Gnome::BonoboWidget	bw

Gtk::Widget
bonobo_widget_new_subdoc (object_desc, uih)
	char *	object_desc
	CORBA::Object	uih

Gnome::BonoboItemContainer
bonobo_widget_get_container (bw)
	Gnome::BonoboWidget	bw

Gnome::BonoboClientSite
bonobo_widget_get_client_site (bw)
	Gnome::BonoboWidget	bw

Gnome::BonoboViewFrame
bonobo_widget_get_view_frame (bw)
	Gnome::BonoboWidget	bw

CORBA::Object
bonobo_widget_get_uih (bw)
	Gnome::BonoboWidget	bw


void
bonobo_widget_set_property (control, first_prop, ...)
	Gnome::BonoboWidget	control
	char *	first_prop
	CODE:
	{
		int i;
		if ((items-1)%2)
			croak("set_property requires (name, value) pairs");
		for (i=1; i <items-1; i+=2)
			getset_prop_value(control, SvPV(ST(i), PL_na), ST(i+1));
	}

void
bonobo_widget_get_property (control, first_prop, ...)
	Gnome::BonoboWidget	control
	char *	first_prop
	PPCODE:
	{
		int i;
		EXTEND(SP, items-1);
		for (i=1; i <items; i++)
			PUSHs(sv_2mortal(getset_prop_value(control, SvPV(ST(i), PL_na), NULL)));
	}


#endif



( run in 0.754 second using v1.01-cache-2.11-cpan-5511b514fd6 )