gtk/plugins/perl/common/GtkThemes.xs@a55ef032e889 (annotated)
gtk/plugins/perl/common/GtkThemes.xs
Mon, 18 Sep 2006 04:22:44 +0000
- author
- Etan Reisner <deryni@pidgin.im>
- date
- Mon, 18 Sep 2006 04:22:44 +0000
- changeset 14641
- a55ef032e889
- parent 14629
- 1a0cd727c121
- child 14643
- a058b716c189
- permissions
- -rw-r--r--
[gaim-migrate @ 17303]
Remove a bunch of functions that are commented out because they can't work
currently, they'll come back if I can get the actual Gtk2 perl stuff to not
crash, but they were just taking up space and getting in my way (since they
are removed already in my other tree).
| 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 | } |
