X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fsrc%2Fperl%2Ftextui%2FTextUI.xs;fp=apps%2Firssi%2Fsrc%2Fperl%2Ftextui%2FTextUI.xs;h=67c4c87b1cb5d47dddddacc9500c4c8f32b3af48;hb=18d69a0a1fec438e241bb4f431506ed59a34066b;hp=a958e2020597e631b55cfc02d9524af6719f6fab;hpb=f7be6adec0248118cddde9b04522c13cd90568cd;p=silc.git

diff --git a/apps/irssi/src/perl/textui/TextUI.xs b/apps/irssi/src/perl/textui/TextUI.xs
index a958e202..67c4c87b 100644
--- a/apps/irssi/src/perl/textui/TextUI.xs
+++ b/apps/irssi/src/perl/textui/TextUI.xs
@@ -49,7 +49,6 @@ static void perl_text_buffer_view_fill_hash(HV *hv, TEXT_BUFFER_VIEW_REC *view)
 
 static void perl_line_fill_hash(HV *hv, LINE_REC *line)
 {
-	hv_store(hv, "refcount", 8, newSViv(line->refcount), 0);
 	hv_store(hv, "info", 4, plain_bless(&line->info, "Irssi::TextUI::LineInfo"), 0);
 }
 
@@ -117,8 +116,45 @@ 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
+print_after(window, prev, level, str)
+	Irssi::UI::Window window
+	Irssi::TextUI::Line prev
+	int level
+	char *str
+PREINIT:
+	TEXT_DEST_REC dest;
+	char *text;
+	char *text2;
+CODE:
+	format_create_dest(&dest, NULL, NULL, level, window);
+	text = format_string_expand(str, NULL);
+	text2 = g_strconcat(text, "\n", NULL);
+	gui_printtext_after(&dest, prev, text2);
+	g_free(text);
+	g_free(text2);
+
 void
 gui_printtext_after(window, prev, level, str)
 	Irssi::UI::Window window