pidgin/plugins/perl/common/GtkThemes.xs

Sat, 28 Apr 2007 01:46:53 +0000

author
Stu Tomlinson <nosnilmot@pidgin.im>
date
Sat, 28 Apr 2007 01:46:53 +0000
changeset 16619
3c35ae665581
parent 16276
8853d1da70f5
child 18068
b6554e3c8224
child 35312
add13288757e
permissions
-rw-r--r--

Delete the right things, and some other things, while building an RPM.

Hopefully this will make building an RPM happier and the resulting RPM less
noisy about our new split prpl things.

#include "gtkmodule.h"

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

void
pidgin_themes_init()

gboolean
pidgin_themes_smileys_disabled()

void
pidgin_themes_smiley_theme_probe()

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

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

mercurial