Mercurial > pidgin
view gtk/plugins/perl/common/GtkThemes.xs @ 15103:53f7a4a8ad2a
[gaim-migrate @ 17889]
Fix some leakage in the perl loader bindings by using a special typedef to handle functions that return g_malloc()-ed values. Thanks to the Gtk-Perl folks for any easy way to do this.
Fix gaim_gtk_sound_get_event_label() to correctly indicate that the retval is a constant.
committer: Tailor Script <tailor@pidgin.im>
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Mon, 04 Dec 2006 03:49:34 +0000 |
parents | 3ed24586efcb |
children |
line wrap: on
line source
#include "gtkmodule.h" MODULE = Gaim::GtkUI::Themes PACKAGE = Gaim::GtkUI::Themes PREFIX = gaim_gtkthemes_ PROTOTYPES: ENABLE void gaim_gtkthemes_init() gboolean gaim_gtkthemes_smileys_disabled() void gaim_gtkthemes_smiley_theme_probe() void gaim_gtkthemes_load_smiley_theme(file, load) const char * file gboolean load void gaim_gtkthemes_get_proto_smileys(id) const char * id PREINIT: GSList *l; PPCODE: for (l = gaim_gtkthemes_get_proto_smileys(id); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::GtkUI::IMHtml::Smiley"))); }