Merged with Irssi 0.8.6.

[silc.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..4f23a9a0507a09667dc776227148914e4b72bf02 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[] = {