Mercurial > pidgin.yaz
comparison libgaim/plugins/perl/common/PluginPref.xs @ 15066:e53cceebebb3
[gaim-migrate @ 17849]
Update the Perl HOWTO to include working samples and various other fixes.
In order to actually do this, I had to also make some fixes to the perl bindings.
committer: Tailor Script <tailor@pidgin.im>
| author | Daniel Atallah <daniel.atallah@gmail.com> |
|---|---|
| date | Wed, 29 Nov 2006 23:46:55 +0000 |
| parents | 60b1bc8dbf37 |
| children |
comparison
equal
deleted
inserted
replaced
| 15065:252c0b69813b | 15066:e53cceebebb3 |
|---|---|
| 31 | 31 |
| 32 void | 32 void |
| 33 gaim_plugin_pref_add_choice(pref, label, choice) | 33 gaim_plugin_pref_add_choice(pref, label, choice) |
| 34 Gaim::PluginPref pref | 34 Gaim::PluginPref pref |
| 35 const char *label | 35 const char *label |
| 36 gpointer choice | 36 # Do the appropriate conversion based on the perl type specified. |
| 37 # Currently only Strings and Ints will work. | |
| 38 gpointer choice = (SvPOKp($arg) ? SvPV($arg, PL_na) : (SvIOKp($arg) ? GINT_TO_POINTER(SvIV($arg)) : NULL)); | |
| 37 | 39 |
| 38 void | 40 void |
| 39 gaim_plugin_pref_destroy(pref) | 41 gaim_plugin_pref_destroy(pref) |
| 40 Gaim::PluginPref pref | 42 Gaim::PluginPref pref |
| 41 | 43 |