gtk/plugins/perl/common/GtkThemes.xs@a43b557ff764 (annotated)
gtk/plugins/perl/common/GtkThemes.xs
Sun, 17 Sep 2006 05:44:22 +0000
- author
- Etan Reisner <deryni@pidgin.im>
- date
- Sun, 17 Sep 2006 05:44:22 +0000
- changeset 14630
- a43b557ff764
- parent 14629
- 1a0cd727c121
- child 14643
- a058b716c189
- permissions
- -rw-r--r--
[gaim-migrate @ 17292]
An oops unrelated to my last commit, go figure.
Gaim::GtkUI::StatusBox functions don't need a leading _.
| 14478 | 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 | ||
| 14629 | 11 | MODULE = Gaim::GtkUI::Themes PACKAGE = Gaim::GtkUI::Themes PREFIX = gaim_gtkthemes_ |
| 14478 | 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 | } |
