view pidgin/plugins/perl/common/GtkThemes.xs @ 24292:8282911d5e17

Build everything with the *_DISABLE_DEPRECATED flags set. This allows us to detect when we're still using deprecated functions internally (and by extension, when we've deprecated something we shouldn't have). In the course of developing this changeset, I fixed a few such cases. Given that the plan is to switch from PURPLE_HIDE_STRUCTS to PURPLE_DISABLE_DEPRECATED as each struct is fully dealt with, this will also ensure we have no regressions on the struct hiding work. Deprecated functions are still available to the respective .c file, to avoid missing prototype errors. Also, Perl and DBus undef the *_DISABLE_DEPRECATED defines as appropriate so that deprecated functions will still be exported to Perl plugins and via DBus. (Otherwise, we'd be breaking backwards compatibility.)

#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")));
	}