pidgin/plugins/perl/common/GtkThemes.xs

Sat, 01 Dec 2007 14:53:09 +0000

author
Stu Tomlinson <nosnilmot@pidgin.im>
date
Sat, 01 Dec 2007 14:53:09 +0000
branch
release-2.3.1
changeset 21721
721e4b54de86
parent 16276
8853d1da70f5
child 18068
b6554e3c8224
child 35312
add13288757e
permissions
-rw-r--r--

Pluck the hidden conversation changes to ipp.2.3.1. I think this needs
careful testing.

applied changes from 806d367a737b47889afc6bc1a600745b224be73b
through af97865fc7bbf79c768ddcb673da8560cf481719

applied changes from e3e7a13ac8add4cadd65d72a3513d202baecf649
through c9f27c16e20ad158b7431974dfce2e50a300492d

applied changes from 43dd2f1b2942cac448da6cccc118014c90cbf141
through 3fe64d635336a6d7f6e520f4b2e041c3316c465d

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