pidgin/plugins/perl/common/GtkThemes.xs@7ffb51d133a4
pidgin/plugins/perl/common/GtkThemes.xs
Sun, 15 Feb 2009 22:52:47 +0000
- author
- Elliott Sales de Andrade <qulogic@pidgin.im>
- date
- Sun, 15 Feb 2009 22:52:47 +0000
- changeset 25616
- 7ffb51d133a4
- parent 16276
- 8853d1da70f5
- child 18068
- b6554e3c8224
- child 35312
- add13288757e
- permissions
- -rw-r--r--
Set a NULL statusline and CurrentMedia if the UBX returns an empty payload,
instead of trying to parse the empty text. If only users wouldn't freak out
just because they see the word "error"...
Fixes #8348.
#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"))); }
