From 5dcd6833242a88cbf0fdbcfa6a25fbe3bad77426 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Sat, 9 Dec 2000 20:54:47 +0000 Subject: fixes, perl should work correctly now :) git-svn-id: http://svn.irssi.org/repos/irssi/trunk@982 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/common/Window.xs | 27 +-------------------------- 1 file changed, 1 insertion(+), 26 deletions(-) (limited to 'src/perl/common/Window.xs') diff --git a/src/perl/common/Window.xs b/src/perl/common/Window.xs index f1b5437e..8d7b31b3 100644 --- a/src/perl/common/Window.xs +++ b/src/perl/common/Window.xs @@ -105,8 +105,8 @@ void print(server, channel, str, level) Irssi::Server server char *channel - int level char *str + int level CODE: printtext(server, channel, level, str); @@ -131,31 +131,6 @@ window_find_closest(server, name, level) MODULE = Irssi PACKAGE = Irssi::Window PREFIX=window_ #******************************* -void -init(window) - Irssi::Window window -PREINIT: - HV *hv; -CODE: - hv = hvref(ST(0)); - if (hv != NULL) { - hv_store(hv, "refnum", 6, newSViv(window->refnum), 0); - hv_store(hv, "name", 4, new_pv(window->name), 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, "lines", 5, newSViv(window->lines), 0); - - hv_store(hv, "level", 5, newSViv(window->level), 0); - hv_store(hv, "new_data", 8, newSViv(window->new_data), 0); - hv_store(hv, "last_color", 10, newSViv(window->last_color), 0); - hv_store(hv, "last_timestamp", 14, newSViv(window->last_timestamp), 0); - hv_store(hv, "last_line", 9, newSViv(window->last_line), 0); - } - void items(window) Irssi::Window window -- cgit v1.2.3