From dfb892559cd68977be60a1908a67be1fb3874c69 Mon Sep 17 00:00:00 2001
From: Wouter Coekaerts <coekie@irssi.org>
Date: Sat, 4 Aug 2007 08:35:59 +0000
Subject: [PATCH] Add Perl bindings for some gui_entry methods.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4590 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/textui/TextUI.xs | 19 +++++++++++++++++++
 src/perl/textui/module.h  |  1 +
 2 files changed, 20 insertions(+)

diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs
index a958e202..1c7488ea 100644
--- a/src/perl/textui/TextUI.xs
+++ b/src/perl/textui/TextUI.xs
@@ -117,6 +117,25 @@ gui_printtext(xpos, ypos, str)
 	int ypos
 	char *str
 
+void
+gui_input_set(str)
+	char *str
+CODE:
+	gui_entry_set_text(active_entry, str);
+
+int
+gui_input_get_pos()
+CODE:
+	RETVAL = gui_entry_get_pos(active_entry);
+OUTPUT:
+	RETVAL
+
+void
+gui_input_set_pos(pos)
+	int pos
+CODE:
+	gui_entry_set_pos(active_entry, pos);
+
 MODULE = Irssi::TextUI PACKAGE = Irssi::UI::Window
 
 void
diff --git a/src/perl/textui/module.h b/src/perl/textui/module.h
index 9123afb2..d8af5b48 100644
--- a/src/perl/textui/module.h
+++ b/src/perl/textui/module.h
@@ -6,6 +6,7 @@
 #include "statusbar.h"
 #include "textbuffer.h"
 #include "textbuffer-view.h"
+#include "gui-entry.h"
 
 typedef MAIN_WINDOW_REC *Irssi__TextUI__MainWindow;
 typedef TEXT_BUFFER_REC *Irssi__TextUI__TextBuffer;