From fcb1374e40ebd2b58c1ebf957a76fa5416034431 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Wed, 18 Oct 2000 20:50:12 +0000
Subject: fixes

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@768 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Window.xs | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src/perl/common/Window.xs')

diff --git a/src/perl/common/Window.xs b/src/perl/common/Window.xs
index 7a516020..579fef71 100644
--- a/src/perl/common/Window.xs
+++ b/src/perl/common/Window.xs
@@ -52,7 +52,7 @@ CODE:
 	signal_emit("send command", 3, cmd, server, item);
 
 void
-printtext(server, channel, level, str)
+printtext(server, channel, str, level)
 	Irssi::Server server
 	char *channel
 	int level
@@ -141,3 +141,15 @@ command(item, cmd)
 	char *cmd
 CODE:
 	signal_emit("send command", 3, cmd, item->server, item);
+
+#*******************************
+MODULE = Irssi	PACKAGE = Irssi::Channel
+#*******************************
+
+void
+print(channel, str, level=MSGLEVEL_CLIENTNOTICE)
+	Irssi::Channel channel
+	int level
+	char *str
+CODE:
+	printtext(channel->server, channel->name, level, str);
-- 
cgit v1.2.3