Mercurial > pidgin
annotate libgaim/plugins/perl/common/Signal.xs @ 14717:b1fcd2fc903a
[gaim-migrate @ 17471]
Martijn van Beers provided some patches to rework the perl object
casting/blessing for signal instances in order to let the newly added jabber-*
signals work. This is those patches.
This is also a small whitespace change, a removal of the gaim debug message
about "Found plugin info" it was just pissing me off, and a renamespacing of
gaim_blist_node_get_extended_menu into Gaim::Blist::Node where it makes
slightly more sense.
committer: Tailor Script <tailor@pidgin.im>
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Thu, 12 Oct 2006 20:38:47 +0000 |
parents | 60b1bc8dbf37 |
children |
rev | line source |
---|---|
14192 | 1 #include "module.h" |
2 #include "../perl-handlers.h" | |
3 | |
4 MODULE = Gaim::Signal PACKAGE = Gaim::Signal PREFIX = gaim_signal_ | |
5 PROTOTYPES: ENABLE | |
6 | |
7 void | |
8 gaim_signal_connect_priority(instance, signal, plugin, callback, priority, data = 0) | |
14717
b1fcd2fc903a
[gaim-migrate @ 17471]
Etan Reisner <pidgin@unreliablesource.net>
parents:
14192
diff
changeset
|
9 Gaim::Handle instance |
14192 | 10 const char *signal |
11 Gaim::Plugin plugin | |
12 SV *callback | |
13 int priority | |
14 SV *data | |
15 CODE: | |
16 gaim_perl_signal_connect(plugin, instance, signal, callback, data, priority); | |
17 | |
18 void | |
19 gaim_signal_connect(instance, signal, plugin, callback, data = 0) | |
14717
b1fcd2fc903a
[gaim-migrate @ 17471]
Etan Reisner <pidgin@unreliablesource.net>
parents:
14192
diff
changeset
|
20 Gaim::Handle instance |
14192 | 21 const char *signal |
22 Gaim::Plugin plugin | |
23 SV *callback | |
24 SV *data | |
25 CODE: | |
26 gaim_perl_signal_connect(plugin, instance, signal, callback, data, GAIM_SIGNAL_PRIORITY_DEFAULT); | |
27 | |
28 void | |
29 gaim_signal_disconnect(instance, signal, plugin) | |
14717
b1fcd2fc903a
[gaim-migrate @ 17471]
Etan Reisner <pidgin@unreliablesource.net>
parents:
14192
diff
changeset
|
30 Gaim::Handle instance |
14192 | 31 const char *signal |
32 Gaim::Plugin plugin | |
33 CODE: | |
34 gaim_perl_signal_disconnect(plugin, instance, signal); |