pidgin/plugins/perl/common/GtkThemes.xs@199aebc3df21 (annotated)
pidgin/plugins/perl/common/GtkThemes.xs
Wed, 11 Apr 2007 20:07:21 +0000
- author
- Stu Tomlinson <nosnilmot@pidgin.im>
- date
- Wed, 11 Apr 2007 20:07:21 +0000
- changeset 16133
- 199aebc3df21
- parent 15899
- 75f0041f72b8
- child 16276
- 8853d1da70f5
- child 20478
- 46933dc62880
- permissions
- -rw-r--r--
Whitespace
| 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) { |
|
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 | } |
