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;