From 76e0e448af4c7cdecddf71c8ab029ed76c6ba561 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Fri, 29 Jun 2001 22:51:37 +0000
Subject: [PATCH] Added some new variables for UI::Window

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1594 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 docs/perl.txt     | 12 ++++++++++++
 src/perl/ui/UI.xs | 10 ++++++++++
 2 files changed, 22 insertions(+)

diff --git a/docs/perl.txt b/docs/perl.txt
index f6cd13bc..21deb3a3 100644
--- a/docs/perl.txt
+++ b/docs/perl.txt
@@ -325,15 +325,27 @@ UI::Window->{}
   refnum - Reference number
   name - Name
 
+  width - Width
+  height - Height
+
   active - Active window item
   active_server - Active server
 
+  servertag - active_server must be either undef or have this same tag
+              (unless there's items in this window). This is used by
+	      /WINDOW SERVER -sticky
   level - Current window level
+
+  sticky_refnum - 1 if reference number is sticky
+
   data_level - Current data level
   hilight_color - Current activity hilight color
+
   last_timestamp - Last time timestamp was written in window
   last_line - Last time text was written in window
 
+  theme_name - Active theme in window, undef = default
+
 UI::TextDest->{}
   window - Window where the text will be written
   server - Target server
diff --git a/src/perl/ui/UI.xs b/src/perl/ui/UI.xs
index 165e73de..846bbc8f 100644
--- a/src/perl/ui/UI.xs
+++ b/src/perl/ui/UI.xs
@@ -22,16 +22,26 @@ static void perl_window_fill_hash(HV *hv, WINDOW_REC *window)
 	hv_store(hv, "refnum", 6, newSViv(window->refnum), 0);
 	hv_store(hv, "name", 4, new_pv(window->name), 0);
 
+	hv_store(hv, "width", 5, newSViv(window->width), 0);
+	hv_store(hv, "height", 6, newSViv(window->height), 0);
+
 	if (window->active)
 		hv_store(hv, "active", 6, irssi_bless(window->active), 0);
 	if (window->active_server)
 		hv_store(hv, "active_server", 13, irssi_bless(window->active_server), 0);
 
+	hv_store(hv, "servertag", 9, new_pv(window->servertag), 0);
 	hv_store(hv, "level", 5, newSViv(window->level), 0);
+
+	hv_store(hv, "sticky_refnum", 13, newSViv(window->sticky_refnum), 0);
+
 	hv_store(hv, "data_level", 8, newSViv(window->data_level), 0);
 	hv_store(hv, "hilight_color", 10, new_pv(window->hilight_color), 0);
+
 	hv_store(hv, "last_timestamp", 14, newSViv(window->last_timestamp), 0);
 	hv_store(hv, "last_line", 9, newSViv(window->last_line), 0);
+
+	hv_store(hv, "theme_name", 10, new_pv(window->theme_name), 0);
 }
 
 static void perl_text_dest_fill_hash(HV *hv, TEXT_DEST_REC *dest)