diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-07-29 09:17:53 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-07-29 09:17:53 +0000 |
| commit | 6c2f9c685aaf4aa79c9ea3f29efe0c22aa0a98ee (patch) | |
| tree | 0f6377555e2b9cdc881731fd06dc3723632150ac /src/perl/ui | |
| parent | 2d5edb8c4d56f75f4dab93929072cc2699ec5ccd (diff) | |
| download | irssi-6c2f9c685aaf4aa79c9ea3f29efe0c22aa0a98ee.zip | |
--enable-perl* -> --with-perl*. Added a new libfe_perl which handles /SCRIPT
commands. /RUN -> /SCRIPT LOAD, /PERLFLUSH -> /SCRIPT FLUSH, /PERL ->
/SCRIPT EXEC. Added /SCRIPT UNLOAD, /SCRIPT LIST. Lots of cleanups.
filename_complete() has extra argument for "default directory" which is
searched if no path is given when completing.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1680 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/ui')
| -rw-r--r-- | src/perl/ui/UI.xs | 21 |
1 files changed, 2 insertions, 19 deletions
diff --git a/src/perl/ui/UI.xs b/src/perl/ui/UI.xs index d427dd07..fc11c7ba 100644 --- a/src/perl/ui/UI.xs +++ b/src/perl/ui/UI.xs @@ -91,25 +91,9 @@ static void perl_unregister_theme(const char *package) theme_unregister_module(package); } -static void sig_script_destroy(const char *type, const char *name, - const char *package) +static void sig_script_destroy(PERL_SCRIPT_REC *script) { - if (strcmp(type, "PERL") == 0) - perl_unregister_theme(package); -} - -static void sig_perl_stop(void) -{ - GSList *tmp; - char *package; - - /* themes */ - for (tmp = perl_scripts; tmp != NULL; tmp = tmp->next) { - package = g_strdup_printf("Irssi::Script::%s", - (char *) tmp->data); - perl_unregister_theme(package); - g_free(package); - } + perl_unregister_theme(script->package); } static PLAIN_OBJECT_INIT_REC fe_plains[] = { @@ -135,7 +119,6 @@ CODE: irssi_add_plains(fe_plains); signal_add("script destroy", (SIGNAL_FUNC) sig_script_destroy); - signal_add("perl stop", (SIGNAL_FUNC) sig_perl_stop); INCLUDE: Themes.xs |