aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-09-29 04:45:57 -04:00
Code

Added some new variables for UI::Window

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1594 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-06-29 22:51:37 +00:00 committed by cras
parent abc4393071
commit 76e0e448af
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
docs/perl.txt
View File

@ -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

10
src/perl/ui/UI.xs
View File

@ -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)