plugins/perl/common/Gaim.xs

Tue, 14 Feb 2006 05:43:43 +0000

author
Richard Laager <rlaager@pidgin.im>
date
Tue, 14 Feb 2006 05:43:43 +0000
changeset 13281
3558cb15ebb9
parent 13191
6c98c6130701
child 13490
9e37340d4b84
permissions
-rw-r--r--

[gaim-migrate @ 15646]
Always show a vertical scrollbar on conversations imhtmls. This will solve the shrinking conversation window bug. I chose this approach instead of saving the size of the window (as I had previous talked about), as this prevents the contents of the scrollback from rewrapping when the scrollbars appear or disappear. It also just seems to feel like the right thing to do, but maybe that's me being lazy.

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);
13191
6c98c6130701 [gaim-migrate @ 15553]
Etan Reisner <deryni@pidgin.im>
parents: 12882
diff changeset
31 GAIM_PERL_BOOT_PROTO(Signal);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
32 GAIM_PERL_BOOT_PROTO(Sound);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
33 GAIM_PERL_BOOT_PROTO(Status);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
34 GAIM_PERL_BOOT_PROTO(Stringref);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
35 GAIM_PERL_BOOT_PROTO(Util);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
36 GAIM_PERL_BOOT_PROTO(XMLNode);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
37
6588
187c6026c574 [gaim-migrate @ 7110]
Christian Hammond <chipx86@chipx86.com>
parents: 6584
diff changeset
38 MODULE = Gaim PACKAGE = Gaim PREFIX = gaim_
6508
57d1df1ca3a0 [gaim-migrate @ 7025]
Christian Hammond <chipx86@chipx86.com>
parents:
diff changeset
39 PROTOTYPES: ENABLE
57d1df1ca3a0 [gaim-migrate @ 7025]
Christian Hammond <chipx86@chipx86.com>
parents:
diff changeset
40
6588
187c6026c574 [gaim-migrate @ 7110]
Christian Hammond <chipx86@chipx86.com>
parents: 6584
diff changeset
41 INCLUDE: const-xs.inc
187c6026c574 [gaim-migrate @ 7110]
Christian Hammond <chipx86@chipx86.com>
parents: 6584
diff changeset
42
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
43 BOOT:
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
44 GAIM_PERL_BOOT(Account);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
45 GAIM_PERL_BOOT(Account__Option);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
46 GAIM_PERL_BOOT(Buddy__Icon);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
47 GAIM_PERL_BOOT(BuddyList);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
48 GAIM_PERL_BOOT(Cipher);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
49 GAIM_PERL_BOOT(Cmd);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
50 GAIM_PERL_BOOT(Connection);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
51 GAIM_PERL_BOOT(Conversation);
13191
6c98c6130701 [gaim-migrate @ 15553]
Etan Reisner <deryni@pidgin.im>
parents: 12882
diff changeset
52 GAIM_PERL_BOOT(Debug);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
53 GAIM_PERL_BOOT(Xfer);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
54 GAIM_PERL_BOOT(ImgStore);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
55 GAIM_PERL_BOOT(Log);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
56 GAIM_PERL_BOOT(Network);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
57 GAIM_PERL_BOOT(Notify);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
58 GAIM_PERL_BOOT(Plugin);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
59 GAIM_PERL_BOOT(PluginPref);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
60 GAIM_PERL_BOOT(Pounce);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
61 GAIM_PERL_BOOT(Prefs);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
62 GAIM_PERL_BOOT(Privacy);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
63 GAIM_PERL_BOOT(Proxy);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
64 GAIM_PERL_BOOT(Prpl);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
65 GAIM_PERL_BOOT(Request);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
66 GAIM_PERL_BOOT(Roomlist);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
67 GAIM_PERL_BOOT(SSL);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
68 GAIM_PERL_BOOT(SavedStatus);
13191
6c98c6130701 [gaim-migrate @ 15553]
Etan Reisner <deryni@pidgin.im>
parents: 12882
diff changeset
69 GAIM_PERL_BOOT(Signal);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
70 GAIM_PERL_BOOT(Sound);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
71 GAIM_PERL_BOOT(Status);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
72 GAIM_PERL_BOOT(Stringref);
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
73 GAIM_PERL_BOOT(Util);
12882
44dfc6467081 [gaim-migrate @ 15234]
Etan Reisner <deryni@pidgin.im>
parents: 12419
diff changeset
74 GAIM_PERL_BOOT(XMLNode);
12419
745d9e5460ea [gaim-migrate @ 14726]
Richard Laager <rlaager@pidgin.im>
parents: 12364
diff changeset
75
6508
57d1df1ca3a0 [gaim-migrate @ 7025]
Christian Hammond <chipx86@chipx86.com>
parents:
diff changeset
76 void
6918
46c9836b0072 [gaim-migrate @ 7465]
Christian Hammond <chipx86@chipx86.com>
parents: 6735
diff changeset
77 timeout_add(plugin, seconds, callback, data = 0)
6520
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
78 Gaim::Plugin plugin
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
79 int seconds
6568
5c8c70b63dc3 [gaim-migrate @ 7090]
Christian Hammond <chipx86@chipx86.com>
parents: 6567
diff changeset
80 SV *callback
6552
e3fa6a85614b [gaim-migrate @ 7074]
Christian Hammond <chipx86@chipx86.com>
parents: 6550
diff changeset
81 SV *data
6520
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
82 CODE:
6568
5c8c70b63dc3 [gaim-migrate @ 7090]
Christian Hammond <chipx86@chipx86.com>
parents: 6567
diff changeset
83 gaim_perl_timeout_add(plugin, seconds, callback, data);
6520
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
84
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
85 void
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
86 deinit()
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
87 CODE:
5386692555c9 [gaim-migrate @ 7037]
Christian Hammond <chipx86@chipx86.com>
parents: 6508
diff changeset
88 gaim_perl_timeout_clear();

mercurial