Mercurial > pidgin.yaz
view pidgin/plugins/perl/common/GtkThemes.xs @ 32144:80b51b8460af
applied changes from 32a55bbc4f1e8d632d205d040fa3e814559e1c95
through 4beb86df935d5dfd7ce4107bcabe1944e59a63a2
Original commit message:
Actually set the relay info for TCP
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Mon, 20 Jun 2011 05:30:52 +0000 |
parents | b54abfe11fc5 |
children |
line wrap: on
line source
#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"))); }