comparison: gtk/plugins/perl/common/GtkConv.xs
gtk/plugins/perl/common/GtkConv.xs
- changeset 14641
- a55ef032e889
- parent 14629
- 1a0cd727c121
- child 14652
- eb05a313591c
equal
deleted
inserted
replaced
| 14640:9f0f2bbbc4e2 | 14641:a55ef032e889 |
|---|---|
| 1 #include "gtkmodule.h" | 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 guint | |
| 7 gaim_gtk_conversations_fill_menu(menu, convs) | |
| 8 Gtk::Widget menu | |
| 9 SV *convs | |
| 10 PREINIT: | |
| 11 GList *t_GL; | |
| 12 int i, t_len; | |
| 13 PPCODE: | |
| 14 t_GL = NULL; | |
| 15 t_len = av_len((AV *)SvRV(convs)); | |
| 16 | |
| 17 for (i = 0; i < t_len; i++) { | |
| 18 STRLEN t_sl; | |
| 19 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(convs), i, 0), t_sl)); | |
| 20 } | |
| 21 gaim_gtk_conversations_fill_menu(menu, t_GL); | |
| 22 */ | |
| 23 | |
| 24 /* This can't work at the moment since I don't have a typemap for Gtk::Widget. | |
| 25 * I thought about using the one from libgtk2-perl but wasn't sure how to go | |
| 26 * about doing that. | |
| 27 GdkPixbuf | |
| 28 gaim_gtkconv_get_tab_icon(conv, small_icon) | |
| 29 Gaim::Conversation conv | |
| 30 gboolean small_icon | |
| 31 */ | |
| 32 | |
| 33 /* This can't work at the moment since I don't have a typemap for gboolean *. | |
| 34 int | |
| 35 gaim_gtkconv_get_tab_at_xy(win, x, y, to_right) | |
| 36 Gaim::GtkUI::Conversation::Window win | |
| 37 int x | |
| 38 int y | |
| 39 gboolean * to_right | |
| 40 */ | |
| 41 | 2 |
| 42 MODULE = Gaim::GtkUI::Conversation PACKAGE = Gaim::GtkUI::Conversation PREFIX = gaim_gtkconv_ | 3 MODULE = Gaim::GtkUI::Conversation PACKAGE = Gaim::GtkUI::Conversation PREFIX = gaim_gtkconv_ |
| 43 PROTOTYPES: ENABLE | 4 PROTOTYPES: ENABLE |
| 44 | 5 |
| 45 void | 6 void |
