• file
• latest
• revisions
• annotate
• diff
• comparison
• raw

gtk/plugins/perl/common/GtkThemes.xs@e46c4ed7e331 (annotated)

gtk/plugins/perl/common/GtkThemes.xs

Mon, 04 Sep 2006 23:00:13 +0000

author

Daniel Atallah <datallah@pidgin.im>

date

Mon, 04 Sep 2006 23:00:13 +0000

changeset 14509

e46c4ed7e331

parent 14478

a6b831ab1d13

child 14629

1a0cd727c121

permissions

-rw-r--r--

[gaim-migrate @ 17161]
Make the Perl GTK+ stuff work in wingaim.

14478 a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	1	#include "gtkmodule.h"
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	2
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	3	/* This can't work at the moment since I don't have a typemap for Gtk::Widget.
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	4	* I thought about using the one from libgtk2-perl but wasn't sure how to go
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	5	* about doing that.
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	6	void
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	7	gaim_gtkthemes_smiley_themeize(widget)
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	8	Gtk::Widget * widget
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	9	*/
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	10
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	11	MODULE = Gaim::Gtk::Themes PACKAGE = Gaim::Gtk::Themes PREFIX = gaim_gtkthemes_
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	12	PROTOTYPES: ENABLE
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	13
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	14	void
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	15	gaim_gtkthemes_init()
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	16
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	17	gboolean
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	18	gaim_gtkthemes_smileys_disabled()
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	19
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	20	void
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	21	gaim_gtkthemes_smiley_theme_probe()
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	22
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	23	void
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	24	gaim_gtkthemes_load_smiley_theme(file, load)
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	25	const char * file
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	26	gboolean load
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	27
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	28	void
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	29	gaim_gtkthemes_get_proto_smileys(id)
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	30	const char * id
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	31	PREINIT:
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	32	GSList *l;
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	33	PPCODE:
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	34	for (l = gaim_gtkthemes_get_proto_smileys(id); l != NULL; l = l->next) {
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	35	XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gtk::IMHtml::Smiley")));
a6b831ab1d13 [gaim-migrate @ 17124] Etan Reisner <deryni@pidgin.im> parents: diff changeset	36	}