Mercurial > pidgin
diff plugins/perl/common/Status.xs @ 11170:0e9e2b923d09
[gaim-migrate @ 13271]
Fixed some bugs and made some additions to the XSUBS. Added some of my test scripts which are incomplete, but mostly functional. GaimPluginPrefs and GaimGtkPluginPrefs--using evals to do the Gtk widgets with gtk2-perl--work. Plugin actions can now be added, but only one for now.
committer: Tailor Script <tailor@pidgin.im>
author | John H. Kelm <johnkelm@gmail.com> |
---|---|
date | Fri, 29 Jul 2005 13:38:00 +0000 |
parents | ece127d56c14 |
children | b4b1be482b4e |
line wrap: on
line diff
--- a/plugins/perl/common/Status.xs Fri Jul 29 05:05:52 2005 +0000 +++ b/plugins/perl/common/Status.xs Fri Jul 29 13:38:00 2005 +0000 @@ -45,6 +45,7 @@ */ +/***************************XS Code Status.xs**************************/ MODULE = Gaim::Status PACKAGE = Gaim::Presence PREFIX = gaim_presence_ PROTOTYPES: ENABLE @@ -359,7 +360,9 @@ STRLEN t_sl; t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(status_types), i, 0), t_sl)); } - gaim_status_type_find_with_id(t_GL, id); + RETVAL = (GaimStatusType *)gaim_status_type_find_with_id(t_GL, id); +OUTPUT: + RETVAL Gaim::StatusAttr gaim_status_type_get_attr(status_type, id)