Mercurial > pidgin

comparison gtk/plugins/perl/common/Gtk.xs @ 14416:eeca8be382a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 17124] This is a Gaim::Gtk perl module for use by gaim plugins to get access to the gtkgaim interface functions. It isn't complete because anything dealing with Gtk widgets themselves doesn't work yet (I need to figure out the best way to do that). To use this a perl plugin just needs to include 'use Gaim::Gtk;' either on top of 'use Gaim;' or instead of it. I'm not done with this yet. At the moment you have to 'use Gaim;' or 'use Gaim::Gtk;' which loads all the parts, I'm planning to let you actually say 'use Gaim::Gtk::Debug;' to just get the gtkdebug.h functions. Though 'use Gaim' would work the same way as always. committer: Tailor Script <tailor@pidgin.im>
author Etan Reisner <pidgin@unreliablesource.net>
date Sat, 02 Sep 2006 05:31:10 +0000
parents
children e88aae4f4c40
comparison
equal deleted inserted replaced
14415:76d345643ba4 14416:eeca8be382a5
1 #include "gtkmodule.h"
2
3 /*
4 #define GAIM_PERL_BOOT_PROTO(x) \
5 void boot_Gaim__##x(pTHX_ CV *cv);
6
7 #define GAIM_PERL_BOOT(x) \
8 gaim_perl_callXS(boot_Gaim__##x, cv, mark)
9
10 static void
11 gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark)
12 {
13 dSP;
14
15 PUSHMARK(mark);
16 (*subaddr)(aTHX_ cv);
17
18 PUTBACK;
19 }
20 */
21
22 /* Prototypes for the BOOT section below. */
23 GAIM_PERL_BOOT_PROTO(Gtk__Account);
24 GAIM_PERL_BOOT_PROTO(Gtk__BuddyList);
25 GAIM_PERL_BOOT_PROTO(Gtk__Connection);
26 GAIM_PERL_BOOT_PROTO(Gtk__Conversation);
27 GAIM_PERL_BOOT_PROTO(Gtk__Conversation__Window);
28 GAIM_PERL_BOOT_PROTO(Gtk__Debug);
29 GAIM_PERL_BOOT_PROTO(Gtk__Dialogs);
30 GAIM_PERL_BOOT_PROTO(Gtk__IMHtml);
31 GAIM_PERL_BOOT_PROTO(Gtk__IMHtmlToolbar);
32 GAIM_PERL_BOOT_PROTO(Gtk__Log);
33 GAIM_PERL_BOOT_PROTO(Gtk__MenuTray);
34 GAIM_PERL_BOOT_PROTO(Gtk__Plugin);
35 GAIM_PERL_BOOT_PROTO(Gtk__PluginPref);
36 GAIM_PERL_BOOT_PROTO(Gtk__Pounce);
37 GAIM_PERL_BOOT_PROTO(Gtk__Prefs);
38 GAIM_PERL_BOOT_PROTO(Gtk__Privacy);
39 GAIM_PERL_BOOT_PROTO(Gtk__Roomlist);
40 GAIM_PERL_BOOT_PROTO(Gtk__Status);
41 GAIM_PERL_BOOT_PROTO(Gtk__Session);
42 GAIM_PERL_BOOT_PROTO(Gtk__Sound);
43 GAIM_PERL_BOOT_PROTO(Gtk__StatusBox);
44 GAIM_PERL_BOOT_PROTO(Gtk__Themes);
45 GAIM_PERL_BOOT_PROTO(Gtk__Utils);
46 GAIM_PERL_BOOT_PROTO(Gtk__Xfer);
47
48 MODULE = Gaim::Gtk PACKAGE = Gaim::Gtk PREFIX = gaim_gtk_
49 PROTOTYPES: ENABLE
50
51 BOOT:
52 GAIM_PERL_BOOT(Gtk__Debug);
53 GAIM_PERL_BOOT(Gtk__Account);
54 GAIM_PERL_BOOT(Gtk__BuddyList);
55 GAIM_PERL_BOOT(Gtk__Connection);
56 GAIM_PERL_BOOT(Gtk__Conversation);
57 GAIM_PERL_BOOT(Gtk__Conversation__Window);
58 GAIM_PERL_BOOT(Gtk__Debug);
59 GAIM_PERL_BOOT(Gtk__Dialogs);
60 GAIM_PERL_BOOT(Gtk__IMHtml);
61 GAIM_PERL_BOOT(Gtk__IMHtmlToolbar);
62 GAIM_PERL_BOOT(Gtk__Log);
63 GAIM_PERL_BOOT(Gtk__MenuTray);
64 GAIM_PERL_BOOT(Gtk__Plugin);
65 GAIM_PERL_BOOT(Gtk__PluginPref);
66 GAIM_PERL_BOOT(Gtk__Pounce);
67 GAIM_PERL_BOOT(Gtk__Prefs);
68 GAIM_PERL_BOOT(Gtk__Privacy);
69 GAIM_PERL_BOOT(Gtk__Roomlist);
70 GAIM_PERL_BOOT(Gtk__Status);
71 GAIM_PERL_BOOT(Gtk__Session);
72 GAIM_PERL_BOOT(Gtk__Sound);
73 GAIM_PERL_BOOT(Gtk__StatusBox);
74 GAIM_PERL_BOOT(Gtk__Themes);
75 GAIM_PERL_BOOT(Gtk__Utils);
76 GAIM_PERL_BOOT(Gtk__Xfer);