pidgin/plugins/perl/common/GtkThemes.xs@7ffb51d133a4 (annotated)
pidgin/plugins/perl/common/GtkThemes.xs
Sun, 15 Feb 2009 22:52:47 +0000
- author
- Elliott Sales de Andrade <qulogic@pidgin.im>
- date
- Sun, 15 Feb 2009 22:52:47 +0000
- changeset 25616
- 7ffb51d133a4
- parent 16276
- 8853d1da70f5
- child 18068
- b6554e3c8224
- child 35312
- add13288757e
- permissions
- -rw-r--r--
Set a NULL statusline and CurrentMedia if the UBX returns an empty payload,
instead of trying to parse the empty text. If only users wouldn't freak out
just because they see the word "error"...
Fixes #8348.
| 14478 | 1 | #include "gtkmodule.h" |
| 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 | 4 | PROTOTYPES: ENABLE |
| 5 | ||
| 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 | 8 | |
| 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 | 11 | |
| 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 | 14 | |
| 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 | 17 | const char * file |
| 18 | gboolean load | |
| 19 | ||
| 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 | 22 | const char * id |
| 23 | PREINIT: | |
| 24 | GSList *l; | |
| 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 | 28 | } |
