Mercurial > pidgin
diff plugins/perl/perl.c @ 5436:ad445074d239
[gaim-migrate @ 5818]
Another big commit. Ugh. I need a very smart regexp.
Core/UI split do_error_dialog(), and soon the mail dialogs! Yay! This
should work without problems at all, but standard disclaimer..
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Sun, 18 May 2003 19:59:02 +0000 |
| parents | 2af3224b329a |
| children | ad9b6e65713b |
line wrap: on
line diff
--- a/plugins/perl/perl.c Sun May 18 19:13:21 2003 +0000 +++ b/plugins/perl/perl.c Sun May 18 19:59:02 2003 +0000 @@ -107,6 +107,7 @@ GaimPlugin *plug; }; +static GaimPlugin *my_plugin = NULL; static GList *perl_list = NULL; static GList *perl_timeout_handlers = NULL; static GList *perl_event_handlers = NULL; @@ -658,7 +659,7 @@ title = SvPV(ST(0), junk); message = SvPV(ST(1), junk); - do_error_dialog(title, message, GAIM_INFO); + gaim_dialog_info(my_plugin, NULL, title, message); XSRETURN(0); } @@ -1392,6 +1393,8 @@ static void __init_plugin(GaimPlugin *plugin) { + my_plugin = plugin; + loader_info.exts = g_list_append(loader_info.exts, "pl"); }