pidgin/plugins/perl/common/GtkThemes.xs

Mon, 26 Mar 2007 00:44:09 +0000

author
Sadrul Habib Chowdhury <sadrul@pidgin.im>
date
Mon, 26 Mar 2007 00:44:09 +0000
changeset 15985
375cc05bf77a
parent 15899
75f0041f72b8
child 16276
8853d1da70f5
child 20478
46933dc62880
permissions
-rw-r--r--

merge of '45e6793c221c1cdc1dedc4815edf0474ebcde787'
and '7401338df45b641419c8302df0350b6ca45917fa'

#include "gtkmodule.h"

MODULE = Pidgin::Themes  PACKAGE = Pidgin::Themes  PREFIX = pidginthemes_
PROTOTYPES: ENABLE

void
pidginthemes_init()

gboolean
pidginthemes_smileys_disabled()

void
pidginthemes_smiley_theme_probe()

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

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

mercurial