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