Mercurial > pidgin.yaz
view pidgin/plugins/perl/common/GtkThemes.xs @ 18476:400f322a4da9
merge of '872f027c46dce251e1ce50a76817a0d7c609147d'
and 'fc616f53d39fe13a82b7286115a742887690e104'
author | Sadrul Habib Chowdhury <imadil@gmail.com> |
---|---|
date | Wed, 11 Jul 2007 17:45:41 +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"))); }