pidgin/plugins/perl/common/GtkThemes.xs@6cd4a90e0970
pidgin/plugins/perl/common/GtkThemes.xs
Fri, 27 Apr 2007 04:25:21 +0000
- author
- Etan Reisner <deryni@pidgin.im>
- date
- Fri, 27 Apr 2007 04:25:21 +0000
- changeset 16528
- 6cd4a90e0970
- parent 16276
- 8853d1da70f5
- child 18068
- b6554e3c8224
- child 35312
- add13288757e
- permissions
- -rw-r--r--
Kill the libpurpleperl hack library and move the init stuff to perl.so itself.
This works fine for me and I'm hoping will work fine on Solaris as well. When
it gets tested we'll want to drop libpurpleperl.c but until I know it works I
don't want to drop it (because of mtn's die die dir merge stuff).
#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"))); }
