pidgin/plugins/perl/common/GtkThemes.xs

Sun, 09 Nov 2008 20:55:10 +0000

author
Marcus Lundblad <malu@pidgin.im>
date
Sun, 09 Nov 2008 20:55:10 +0000
branch
maiku.vv
changeset 26159
24ffae1874f1
parent 16276
8853d1da70f5
child 18068
b6554e3c8224
child 35312
add13288757e
permissions
-rw-r--r--

Added menu items to buddy list context menu to start voice and video sessions
After discussing the matter with Maiku, we decided to have two choises.
"Audio call" which will show up if audio sessions is possible with a buddy and
the other item is either "Audio/Video" or "Video" depending on if the buddy
supports both at the same time or not

14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
1 #include "gtkmodule.h"
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
2
16276
8853d1da70f5 Rename a number of Perl functions which were munged at some point
Warren Togami Jr. <warren@togami.com>
parents: 15899
diff changeset
3 MODULE = Pidgin::Themes PACKAGE = Pidgin::Themes PREFIX = pidgin_themes_
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
4 PROTOTYPES: ENABLE
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
5
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
6 void
16276
8853d1da70f5 Rename a number of Perl functions which were munged at some point
Warren Togami Jr. <warren@togami.com>
parents: 15899
diff changeset
7 pidgin_themes_init()
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
8
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
9 gboolean
16276
8853d1da70f5 Rename a number of Perl functions which were munged at some point
Warren Togami Jr. <warren@togami.com>
parents: 15899
diff changeset
10 pidgin_themes_smileys_disabled()
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
11
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
12 void
16276
8853d1da70f5 Rename a number of Perl functions which were munged at some point
Warren Togami Jr. <warren@togami.com>
parents: 15899
diff changeset
13 pidgin_themes_smiley_theme_probe()
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
14
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
15 void
16276
8853d1da70f5 Rename a number of Perl functions which were munged at some point
Warren Togami Jr. <warren@togami.com>
parents: 15899
diff changeset
16 pidgin_themes_load_smiley_theme(file, load)
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
17 const char * file
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
18 gboolean load
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
19
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
20 void
16276
8853d1da70f5 Rename a number of Perl functions which were munged at some point
Warren Togami Jr. <warren@togami.com>
parents: 15899
diff changeset
21 pidgin_themes_get_proto_smileys(id)
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
22 const char * id
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
23 PREINIT:
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
24 GSList *l;
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
25 PPCODE:
16276
8853d1da70f5 Rename a number of Perl functions which were munged at some point
Warren Togami Jr. <warren@togami.com>
parents: 15899
diff changeset
26 for (l = pidgin_themes_get_proto_smileys(id); l != NULL; l = l->next) {
15899
75f0041f72b8 Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents: 15590
diff changeset
27 XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Pidgin::IMHtml::Smiley")));
14478
a6b831ab1d13 [gaim-migrate @ 17124]
Etan Reisner <deryni@pidgin.im>
parents:
diff changeset
28 }

mercurial