gtk/plugins/perl/common/GtkThemes.xs

Sun, 17 Sep 2006 05:35:46 +0000

author
Etan Reisner <deryni@pidgin.im>
date
Sun, 17 Sep 2006 05:35:46 +0000
changeset 14629
1a0cd727c121
parent 14478
a6b831ab1d13
child 14643
a058b716c189
permissions
-rw-r--r--

[gaim-migrate @ 17291]
This is a really huge commit for basically nothing, I decided that Gaim::Gtk
should really be Gaim::GtkUI (which will line up better with any eventual
Gaim::GntUI that might exist, etc.). So that's what this is, I think I got
everything, it builds here at least.

#include "gtkmodule.h"

/* This can't work at the moment since I don't have a typemap for Gtk::Widget.
 * I thought about using the one from libgtk2-perl but wasn't sure how to go
 * about doing that.
void
gaim_gtkthemes_smiley_themeize(widget)
	Gtk::Widget * widget
*/

MODULE = Gaim::GtkUI::Themes  PACKAGE = Gaim::GtkUI::Themes  PREFIX = gaim_gtkthemes_
PROTOTYPES: ENABLE

void
gaim_gtkthemes_init()

gboolean
gaim_gtkthemes_smileys_disabled()

void
gaim_gtkthemes_smiley_theme_probe()

void
gaim_gtkthemes_load_smiley_theme(file, load)
	const char * file
	gboolean load

void
gaim_gtkthemes_get_proto_smileys(id)
	const char * id
PREINIT:
	GSList *l;
PPCODE:
	for (l = gaim_gtkthemes_get_proto_smileys(id); l != NULL; l = l->next) {
		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gtk::IMHtml::Smiley")));
	}

mercurial