Gtk-Perl

 view release on metacpan or  search on metacpan

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

	for (i=1;i<=av_len(args);i++)
		XPUSHs(sv_2mortal(newSVsv(*av_fetch(args, i, 0))));
	PUTBACK;
	perl_call_sv(handler, G_DISCARD);
	return;
}


MODULE = Gnome::BonoboEmbeddable		PACKAGE = Gnome::BonoboEmbeddable		PREFIX = bonobo_embeddable_

#ifdef BONOBO_EMBEDDABLE

Gnome::BonoboEmbeddable
bonobo_embeddable_new (Class, factory, ...)
	SV *	Class
	SV *	factory
	CODE:
	{
		AV *args = newAV();
		PackCallbackST(args, 1);
		RETVAL = bonobo_embeddable_new(generic_view_factory, args);

GtkHTML/pkg.defs  view on Meta::CPAN

(define-object GtkHTML (GtkLayout))
(define-object GtkHTMLEmbedded (GtkBin) (cast GTK_HTML_EMBEDDED))

(define-enum GtkHTMLStreamStatus
  (ok GTK_HTML_STREAM_OK)
  (error GTK_HTML_STREAM_ERROR))

(define-enum GtkHTMLParagraphStyle
  (normal GTK_HTML_PARAGRAPH_STYLE_NORMAL)
  (h1 GTK_HTML_PARAGRAPH_STYLE_H1)
  (h2 GTK_HTML_PARAGRAPH_STYLE_H2)
  (h3 GTK_HTML_PARAGRAPH_STYLE_H3)

GtkHTML/xs/GtkHTMLEmbedded.xs  view on Meta::CPAN

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "PerlGtkHTMLInt.h"

#include "GtkHTMLDefs.h"

MODULE = Gtk::HTMLEmbedded		PACKAGE = Gtk::HTMLEmbedded		PREFIX = gtk_html_embedded_

#ifdef GTK_HTML_EMBEDDED

Gtk::HTMLEmbedded_Sink
new (Class, classid, name, type, width, height)
	SV *	Class
	char *	classid
	char *	name
	char *	type
	int	width
	int	height
	CODE:

Mozilla/xs/GtkMozEmbed.xs  view on Meta::CPAN

	static int inited = 0;
	if (inited)
		return;
	inited = 1;
	GtkMozEmbed_InstallObjects();
	GtkMozEmbed_InstallTypedefs();
}

MODULE = Gtk::MozEmbed		PACKAGE = Gtk::MozEmbed		PREFIX = gtk_moz_embed_

#ifdef GTK_MOZ_EMBED

Gtk::MozEmbed_Sink
gtk_moz_embed_new (Class)
	SV *	Class
	CODE:
	pgtk_mozembed_init ();
	RETVAL = (GtkMozEmbed*)(gtk_moz_embed_new ());
	OUTPUT:
	RETVAL