| 355 gps->prefs_sub = g_strdup_printf("%s::%s", |
355 gps->prefs_sub = g_strdup_printf("%s::%s", |
| 356 gps->package, |
356 gps->package, |
| 357 SvPV(*key, len)); |
357 SvPV(*key, len)); |
| 358 info->prefs_info = &ui_info; |
358 info->prefs_info = &ui_info; |
| 359 } |
359 } |
| 360 |
360 |
| 361 if ((key = hv_fetch(plugin_info, "gtk_prefs_info", |
361 if ((key = hv_fetch(plugin_info, "gtk_prefs_info", |
| 362 strlen("gtk_prefs_info"), 0))) { |
362 strlen("gtk_prefs_info"), 0))) { |
| 363 /* key now is the name of the Perl sub that |
363 /* key now is the name of the Perl sub that |
| 364 * will create a frame for us */ |
364 * will create a frame for us */ |
| 365 gps->gtk_prefs_sub = g_strdup_printf("%s::%s", |
365 gps->gtk_prefs_sub = g_strdup_printf("%s::%s", |