Added SILC Thread Queue API

[crypto.git] / apps / irssi / src / perl / textui / TextUI.xs

diff --git a/apps/irssi/src/perl/textui/TextUI.xs b/apps/irssi/src/perl/textui/TextUI.xs
index 8d49ac4499a7612a1c5516d068b2a440740603fb..a958e2020597e631b55cfc02d9524af6719f6fab 100644 (file)
--- a/apps/irssi/src/perl/textui/TextUI.xs
+++ b/apps/irssi/src/perl/textui/TextUI.xs
@@ -1,5 +1,8 @@
 #include "module.h"
 
+void perl_statusbar_init(void);
+void perl_statusbar_deinit(void);
+
 static int initialized = FALSE;
 
 static void perl_main_window_fill_hash(HV *hv, MAIN_WINDOW_REC *window)
@@ -69,6 +72,8 @@ static void perl_statusbar_item_fill_hash(HV *hv, SBAR_ITEM_REC *item)
        hv_store(hv, "max_size", 8, newSViv(item->max_size), 0);
        hv_store(hv, "xpos", 4, newSViv(item->xpos), 0);
        hv_store(hv, "size", 4, newSViv(item->size), 0);
+       if (item->bar->parent_window != NULL)
+               hv_store(hv, "window", 6, plain_bless(item->bar->parent_window->active, "Irssi::UI::Window"), 0);
 }
 
 static PLAIN_OBJECT_INIT_REC textui_plains[] = {
@@ -102,6 +107,7 @@ deinit()
 CODE:
        if (!initialized) return;
         perl_statusbar_deinit();
+       initialized = FALSE;
 
 MODULE = Irssi::TextUI PACKAGE = Irssi