comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 11842
- 114c297fae75
- parent 11318
- 13fa1d5134f3
- child 12871
- 3584d93ae63c
equal
deleted
inserted
replaced
| 11841:85773b4974fe | 11842:114c297fae75 |
|---|---|
| 337 /* the user and he must create a GtkWidget */ | 337 /* the user and he must create a GtkWidget */ |
| 338 /* representing the plugin preferences */ | 338 /* representing the plugin preferences */ |
| 339 /* page. */ | 339 /* page. */ |
| 340 /********************************************************/ | 340 /********************************************************/ |
| 341 if ((key = hv_fetch(plugin_info, "prefs_info", strlen("prefs_info"), 0))) { | 341 if ((key = hv_fetch(plugin_info, "prefs_info", strlen("prefs_info"), 0))) { |
| 342 char *tmp = g_strdup_printf("%s::%s", gps->package, SvPV(*key, len)); | |
| 342 /* key now is the name of the Perl sub that will create a frame for us */ | 343 /* key now is the name of the Perl sub that will create a frame for us */ |
| 343 info->prefs_info = gaim_perl_plugin_pref(g_strdup_printf("%s::%s", gps->package, SvPV(*key, len))); | 344 info->prefs_info = gaim_perl_plugin_pref(tmp); |
| 345 g_free(tmp); | |
| 344 } | 346 } |
| 345 | 347 |
| 346 if ((key = hv_fetch(plugin_info, "gtk_prefs_info", strlen("gtk_prefs_info"), 0))) { | 348 if ((key = hv_fetch(plugin_info, "gtk_prefs_info", strlen("gtk_prefs_info"), 0))) { |
| 349 char *tmp = g_strdup_printf("%s::%s", gps->package, SvPV(*key, len)); | |
| 347 /* key now is the name of the Perl sub that will create a frame for us */ | 350 /* key now is the name of the Perl sub that will create a frame for us */ |
| 348 info->ui_info = gaim_perl_gtk_plugin_pref(g_strdup_printf("%s::%s", gps->package, SvPV(*key, len))); | 351 info->ui_info = gaim_perl_gtk_plugin_pref(tmp); |
| 352 g_free(tmp); | |
| 349 } | 353 } |
| 350 | 354 |
| 351 /********************************************************/ | 355 /********************************************************/ |
| 352 /* */ | 356 /* */ |
| 353 /* plugin_action - This is given to the plugin info */ | 357 /* plugin_action - This is given to the plugin info */ |
