pidgin/plugins/perl/common/GtkThemes.xs@cd8a32e0e0b5 (annotated)
pidgin/plugins/perl/common/GtkThemes.xs
Fri, 16 Feb 2007 16:25:26 +0000
- author
- Luke Schierer <lschiere@pidgin.im>
- date
- Fri, 16 Feb 2007 16:25:26 +0000
- changeset 15711
- cd8a32e0e0b5
- parent 15590
- c07dd12bf3f4
- child 15899
- 75f0041f72b8
- permissions
- -rw-r--r--
I like being able to compile :-)
(some name changes in the perl stuff)
| 14478 | 1 | #include "gtkmodule.h" |
| 2 | ||
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
3 | MODULE = Pidgin::Themes PACKAGE = Pidgin::Themes PREFIX = pidginthemes_ |
| 14478 | 4 | PROTOTYPES: ENABLE |
| 5 | ||
| 6 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
7 | pidginthemes_init() |
| 14478 | 8 | |
| 9 | gboolean | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
10 | pidginthemes_smileys_disabled() |
| 14478 | 11 | |
| 12 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
13 | pidginthemes_smiley_theme_probe() |
| 14478 | 14 | |
| 15 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
16 | pidginthemes_load_smiley_theme(file, load) |
| 14478 | 17 | const char * file |
| 18 | gboolean load | |
| 19 | ||
| 20 | void | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
21 | pidginthemes_get_proto_smileys(id) |
| 14478 | 22 | const char * id |
| 23 | PREINIT: | |
| 24 | GSList *l; | |
| 25 | PPCODE: | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
26 | for (l = pidginthemes_get_proto_smileys(id); l != NULL; l = l->next) { |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15435
diff
changeset
|
27 | XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Pidgin::IMHtml::Smiley"))); |
| 14478 | 28 | } |
