libgaim/plugins/perl/common/Gaim.xs

Tue, 29 Aug 2006 02:22:08 +0000

author
Hil <allhilbert@users.sourceforge.net>
date
Tue, 29 Aug 2006 02:22:08 +0000
changeset 14432
3710852cdab5
parent 14254
77edc7a6191a
child 15066
57ab37fe1190
permissions
-rw-r--r--

[gaim-migrate @ 17076]
SF Patch #1547720 from Hilbert
Fixes SF Bug #1541097

If you search, leave the Find dialog open, switch tabs, and search again, the search happens in the original tab. This patch fixes that bug. Now when you search, it searches in the active conversation window.

committer: Richard Laager <rlaager@pidgin.im>

6508
57d1df1ca3a0 [gaim-migrate @ 7025]
Christian Hammond <chipx86@chipx86.com>
parents:
diff changeset
1 #include "module.h"
6520
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
2 #include "../perl-handlers.h"
6588
187c6026c574 [gaim-migrate @ 7110]
Christian Hammond <chipx86@chipx86.com>
parents: 6584
diff changeset
3 #include "const-c.inc"
187c6026c574 [gaim-migrate @ 7110]
Christian Hammond <chipx86@chipx86.com>
parents: 6584
diff changeset
4
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
5 /* Prototypes for the BOOT section below. */
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
6 GAIM_PERL_BOOT_PROTO(Account);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
7 GAIM_PERL_BOOT_PROTO(Account__Option);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
8 GAIM_PERL_BOOT_PROTO(Buddy__Icon);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
9 GAIM_PERL_BOOT_PROTO(BuddyList);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
10 GAIM_PERL_BOOT_PROTO(Cipher);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
11 GAIM_PERL_BOOT_PROTO(Cmd);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
12 GAIM_PERL_BOOT_PROTO(Connection);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
13 GAIM_PERL_BOOT_PROTO(Conversation);
13191
6c98c6130701 [gaim-migrate @ 15553]
Etan Reisner <deryni@pidgin.im>
parents: 12882
diff changeset
14 GAIM_PERL_BOOT_PROTO(Debug);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
15 GAIM_PERL_BOOT_PROTO(Xfer);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
16 GAIM_PERL_BOOT_PROTO(ImgStore);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
17 GAIM_PERL_BOOT_PROTO(Log);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
18 GAIM_PERL_BOOT_PROTO(Network);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
19 GAIM_PERL_BOOT_PROTO(Notify);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
20 GAIM_PERL_BOOT_PROTO(Plugin);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
21 GAIM_PERL_BOOT_PROTO(PluginPref);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
22 GAIM_PERL_BOOT_PROTO(Pounce);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
23 GAIM_PERL_BOOT_PROTO(Prefs);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
24 GAIM_PERL_BOOT_PROTO(Privacy);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
25 GAIM_PERL_BOOT_PROTO(Proxy);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
26 GAIM_PERL_BOOT_PROTO(Prpl);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
27 GAIM_PERL_BOOT_PROTO(Request);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
28 GAIM_PERL_BOOT_PROTO(Roomlist);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
29 GAIM_PERL_BOOT_PROTO(SSL);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
30 GAIM_PERL_BOOT_PROTO(SavedStatus);
13490
9e37340d4b84 [gaim-migrate @ 15865]
Etan Reisner <deryni@pidgin.im>
parents: 13191
diff changeset
31 GAIM_PERL_BOOT_PROTO(Serv);
13191
6c98c6130701 [gaim-migrate @ 15553]
Etan Reisner <deryni@pidgin.im>
parents: 12882
diff changeset
32 GAIM_PERL_BOOT_PROTO(Signal);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
33 GAIM_PERL_BOOT_PROTO(Sound);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
34 GAIM_PERL_BOOT_PROTO(Status);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
35 GAIM_PERL_BOOT_PROTO(Stringref);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
36 GAIM_PERL_BOOT_PROTO(Util);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
37 GAIM_PERL_BOOT_PROTO(XMLNode);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
38
6588
187c6026c574 [gaim-migrate @ 7110]
Christian Hammond <chipx86@chipx86.com>
parents: 6584
diff changeset
39 MODULE = Gaim PACKAGE = Gaim PREFIX = gaim_
6508
57d1df1ca3a0 [gaim-migrate @ 7025]
Christian Hammond <chipx86@chipx86.com>
parents:
diff changeset
40 PROTOTYPES: ENABLE
57d1df1ca3a0 [gaim-migrate @ 7025]
Christian Hammond <chipx86@chipx86.com>
parents:
diff changeset
41
6588
187c6026c574 [gaim-migrate @ 7110]
Christian Hammond <chipx86@chipx86.com>
parents: 6584
diff changeset
42 INCLUDE: const-xs.inc
187c6026c574 [gaim-migrate @ 7110]
Christian Hammond <chipx86@chipx86.com>
parents: 6584
diff changeset
43
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
44 BOOT:
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
45 GAIM_PERL_BOOT(Account);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
46 GAIM_PERL_BOOT(Account__Option);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
47 GAIM_PERL_BOOT(Buddy__Icon);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
48 GAIM_PERL_BOOT(BuddyList);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
49 GAIM_PERL_BOOT(Cipher);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
50 GAIM_PERL_BOOT(Cmd);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
51 GAIM_PERL_BOOT(Connection);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
52 GAIM_PERL_BOOT(Conversation);
13191
6c98c6130701 [gaim-migrate @ 15553]
Etan Reisner <deryni@pidgin.im>
parents: 12882
diff changeset
53 GAIM_PERL_BOOT(Debug);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
54 GAIM_PERL_BOOT(Xfer);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
55 GAIM_PERL_BOOT(ImgStore);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
56 GAIM_PERL_BOOT(Log);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
57 GAIM_PERL_BOOT(Network);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
58 GAIM_PERL_BOOT(Notify);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
59 GAIM_PERL_BOOT(Plugin);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
60 GAIM_PERL_BOOT(PluginPref);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
61 GAIM_PERL_BOOT(Pounce);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
62 GAIM_PERL_BOOT(Prefs);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
63 GAIM_PERL_BOOT(Privacy);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
64 GAIM_PERL_BOOT(Proxy);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
65 GAIM_PERL_BOOT(Prpl);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
66 GAIM_PERL_BOOT(Request);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
67 GAIM_PERL_BOOT(Roomlist);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
68 GAIM_PERL_BOOT(SSL);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
69 GAIM_PERL_BOOT(SavedStatus);
13490
9e37340d4b84 [gaim-migrate @ 15865]
Etan Reisner <deryni@pidgin.im>
parents: 13191
diff changeset
70 GAIM_PERL_BOOT(Serv);
13191
6c98c6130701 [gaim-migrate @ 15553]
Etan Reisner <deryni@pidgin.im>
parents: 12882
diff changeset
71 GAIM_PERL_BOOT(Signal);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
72 GAIM_PERL_BOOT(Sound);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
73 GAIM_PERL_BOOT(Status);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
74 GAIM_PERL_BOOT(Stringref);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
75 GAIM_PERL_BOOT(Util);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
76 GAIM_PERL_BOOT(XMLNode);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
77
6508
57d1df1ca3a0 [gaim-migrate @ 7025]
Christian Hammond <chipx86@chipx86.com>
parents:
diff changeset
78 void
6918
46c9836b0072 [gaim-migrate @ 7465]
Christian Hammond <chipx86@chipx86.com>
parents: 6735
diff changeset
79 timeout_add(plugin, seconds, callback, data = 0)
6520
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
80 Gaim::Plugin plugin
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
81 int seconds
6568
5c8c70b63dc3 [gaim-migrate @ 7090]
Christian Hammond <chipx86@chipx86.com>
parents: 6567
diff changeset
82 SV *callback
6552
e3fa6a85614b [gaim-migrate @ 7074]
Christian Hammond <chipx86@chipx86.com>
parents: 6550
diff changeset
83 SV *data
6520
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
84 CODE:
6568
5c8c70b63dc3 [gaim-migrate @ 7090]
Christian Hammond <chipx86@chipx86.com>
parents: 6567
diff changeset
85 gaim_perl_timeout_add(plugin, seconds, callback, data);
6520
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
86
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
87 void
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
88 deinit()
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
89 CODE:
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
90 gaim_perl_timeout_clear();

mercurial