comparison: libgaim/plugins/perl/common/PluginPref.xs
libgaim/plugins/perl/common/PluginPref.xs
- changeset 15127
- 5fc0e97f117d
- parent 14254
- 77edc7a6191a
- child 20470
- 77693555855f
- child 20472
- 6a6d2ef151e6
equal
deleted
inserted
replaced
| 15126:4f65b4af7605 | 15127:5fc0e97f117d |
|---|---|
| 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 |
