diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-06-29 22:51:37 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-06-29 22:51:37 +0000 |
| commit | 76e0e448af4c7cdecddf71c8ab029ed76c6ba561 (patch) | |
| tree | a840043955e7b465d2a42cc00566f4fd4dfc82d5 /src/perl | |
| parent | abc4393071a8d0ad180c536a5a88c4f12f2dd46b (diff) | |
| download | irssi-76e0e448af4c7cdecddf71c8ab029ed76c6ba561.zip | |
Added some new variables for UI::Window
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1594 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/ui/UI.xs | 10 |
1 files changed, 10 insertions, 0 deletions
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) |