Mercurial > pidgin
changeset 799:72f8ac951c11
[gaim-migrate @ 809]
list perl scripts
committer: Tailor Script <tailor@pidgin.im>
| author | Eric Warmenhoven <eric@warmenhoven.org> |
|---|---|
| date | Wed, 30 Aug 2000 18:54:02 +0000 |
| parents | 9dc39872e1f9 |
| children | 022048cde898 |
| files | src/perl.c |
| diffstat | 1 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/perl.c Wed Aug 30 18:46:43 2000 +0000 +++ b/src/perl.c Wed Aug 30 18:54:02 2000 +0000 @@ -588,6 +588,19 @@ extern void list_perl_scripts(GtkWidget *w, gpointer d) { - do_error_dialog("Implement me.", "FIXME"); + GList *s = perl_list; + struct perlscript *p; + char buf[BUF_LONG * 4]; + int at = 0; + + at += g_snprintf(buf + at, sizeof(buf) - at, "Loaded scripts:\n"); + while (s) { + p = (struct perlscript *)s->data; + at += g_snprintf(buf + at, sizeof(buf) - at, "%s\n", p->name); + s = s->next; + } + + do_error_dialog(buf, _("Perl Scripts")); } + #endif /* USE_PERL */