pidgin/plugins/perl/common/GtkThemes.xs@088779d43c79 (annotated)
pidgin/plugins/perl/common/GtkThemes.xs
Tue, 10 Jun 2008 16:18:12 +0000
- author
- Richard Laager <rlaager@pidgin.im>
- date
- Tue, 10 Jun 2008 16:18:12 +0000
- changeset 23491
- 088779d43c79
- parent 16276
- 8853d1da70f5
- child 18068
- b6554e3c8224
- child 35312
- add13288757e
- permissions
- -rw-r--r--
Add another translation: wud -> would
| 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 | } |
