Mercurial > pidgin.yaz

annotate pidgin/plugins/perl/common/GtkThemes.xs @ 24018:40a4e02027f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
shuffle some code around to make sure are using the right errno, References #7032
author Ka-Hing Cheung <khc@hxbc.us>
date Thu, 11 Sep 2008 04:19:37 +0000
parents b54abfe11fc5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
15374
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
1 #include "gtkmodule.h"
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
2
16211
b54abfe11fc5 Rename a number of Perl functions which were munged at some point
Warren Togami <wtogami>
parents: 15838
diff changeset
3 MODULE = Pidgin::Themes PACKAGE = Pidgin::Themes PREFIX = pidgin_themes_
15374
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
4 PROTOTYPES: ENABLE
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
5
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
6 void
16211
b54abfe11fc5 Rename a number of Perl functions which were munged at some point
Warren Togami <wtogami>
parents: 15838
diff changeset
7 pidgin_themes_init()
15374
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
8
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
9 gboolean
16211
b54abfe11fc5 Rename a number of Perl functions which were munged at some point
Warren Togami <wtogami>
parents: 15838
diff changeset
10 pidgin_themes_smileys_disabled()
15374
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
11
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
12 void
16211
b54abfe11fc5 Rename a number of Perl functions which were munged at some point
Warren Togami <wtogami>
parents: 15838
diff changeset
13 pidgin_themes_smiley_theme_probe()
15374
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
14
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
15 void
16211
b54abfe11fc5 Rename a number of Perl functions which were munged at some point
Warren Togami <wtogami>
parents: 15838
diff changeset
16 pidgin_themes_load_smiley_theme(file, load)
15374
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
17 const char * file
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
18 gboolean load
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
19
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
20 void
16211
b54abfe11fc5 Rename a number of Perl functions which were munged at some point
Warren Togami <wtogami>
parents: 15838
diff changeset
21 pidgin_themes_get_proto_smileys(id)
15374
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
22 const char * id
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
23 PREINIT:
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
24 GSList *l;
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
25 PPCODE:
16211
b54abfe11fc5 Rename a number of Perl functions which were munged at some point
Warren Togami <wtogami>
parents: 15838
diff changeset
26 for (l = pidgin_themes_get_proto_smileys(id); l != NULL; l = l->next) {
15838
e622745f6f42 Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <daniel.atallah@gmail.com>
parents: 15526
diff changeset
27 XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Pidgin::IMHtml::Smiley")));
15374
5fe8042783c1 Rename gtk/ and libgaim/ to pidgin/ and libpurple/
Sean Egan <seanegan@gmail.com>
parents:
diff changeset
28 }