Mercurial > pidgin
annotate gtk/plugins/perl/common/GtkThemes.xs @ 14447:e88aae4f4c40
[gaim-migrate @ 17161]
Make the Perl GTK+ stuff work in wingaim.
committer: Tailor Script <tailor@pidgin.im>
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Mon, 04 Sep 2006 23:00:13 +0000 |
parents | eeca8be382a5 |
children | d6eae5115b31 |
rev | line source |
---|---|
14416
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
1 #include "gtkmodule.h" |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
2 |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
3 /* This can't work at the moment since I don't have a typemap for Gtk::Widget. |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
4 * I thought about using the one from libgtk2-perl but wasn't sure how to go |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
5 * about doing that. |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
6 void |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
7 gaim_gtkthemes_smiley_themeize(widget) |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
8 Gtk::Widget * widget |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
9 */ |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
10 |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
11 MODULE = Gaim::Gtk::Themes PACKAGE = Gaim::Gtk::Themes PREFIX = gaim_gtkthemes_ |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
12 PROTOTYPES: ENABLE |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
13 |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
14 void |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
15 gaim_gtkthemes_init() |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
16 |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
17 gboolean |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
18 gaim_gtkthemes_smileys_disabled() |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
19 |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
20 void |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
21 gaim_gtkthemes_smiley_theme_probe() |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
22 |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
23 void |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
24 gaim_gtkthemes_load_smiley_theme(file, load) |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
25 const char * file |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
26 gboolean load |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
27 |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
28 void |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
29 gaim_gtkthemes_get_proto_smileys(id) |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
30 const char * id |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
31 PREINIT: |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
32 GSList *l; |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
33 PPCODE: |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
34 for (l = gaim_gtkthemes_get_proto_smileys(id); l != NULL; l = l->next) { |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
35 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gtk::IMHtml::Smiley"))); |
eeca8be382a5
[gaim-migrate @ 17124]
Etan Reisner <pidgin@unreliablesource.net>
parents:
diff
changeset
|
36 } |