pidgin/plugins/perl/common/GtkThemes.xs@6cd4a90e0970 (annotated)
pidgin/plugins/perl/common/GtkThemes.xs
Fri, 27 Apr 2007 04:25:21 +0000
- author
- Etan Reisner <deryni@pidgin.im>
- date
- Fri, 27 Apr 2007 04:25:21 +0000
- changeset 16528
- 6cd4a90e0970
- parent 16276
- 8853d1da70f5
- child 18068
- b6554e3c8224
- child 35312
- add13288757e
- permissions
- -rw-r--r--
Kill the libpurpleperl hack library and move the init stuff to perl.so itself.
This works fine for me and I'm hoping will work fine on Solaris as well. When
it gets tested we'll want to drop libpurpleperl.c but until I know it works I
don't want to drop it (because of mtn's die die dir merge stuff).
| 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 | } |
