summaryrefslogtreecommitdiff
path: root/src/perl/textui
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2001-11-17 00:25:20 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2001-11-17 00:25:20 +0000
commit00423151f9c0b8d9f3d92ebdc5f2cc83829960c7 (patch)
treed964b971bf4c34afd2d9a1fe2444a2fb8784e354 /src/perl/textui
parent93d69f50ee2d1251d0e24d93bd2dc3b3b6d1a50f (diff)
downloadirssi-00423151f9c0b8d9f3d92ebdc5f2cc83829960c7.zip
Didn't I already commit these? .. added format_get_text(),
gui_printtext_after(), last_line_insert() and fixed a few memleaks. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2040 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/textui')
-rw-r--r--src/perl/textui/TextUI.xs37
1 files changed, 37 insertions, 0 deletions
diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs
index ba08ccdf..e1cea3ae 100644
--- a/src/perl/textui/TextUI.xs
+++ b/src/perl/textui/TextUI.xs
@@ -111,6 +111,43 @@ gui_printtext(xpos, ypos, str)
int ypos
char *str
+MODULE = Irssi::TextUI PACKAGE = Irssi::UI::Window
+
+void
+gui_printtext_after(window, prev, level, str)
+ Irssi::UI::Window window
+ Irssi::TextUI::Line prev
+ int level
+ char *str
+PREINIT:
+ TEXT_DEST_REC dest;
+CODE:
+ format_create_dest(&dest, NULL, NULL, level, window);
+ gui_printtext_after(&dest, prev, str);
+
+Irssi::TextUI::Line
+last_line_insert(window)
+ Irssi::UI::Window window
+CODE:
+ RETVAL = WINDOW_GUI(window)->insert_after;
+OUTPUT:
+ RETVAL
+
+MODULE = Irssi::TextUI PACKAGE = Irssi::UI::Server
+
+void
+gui_printtext_after(server, target, prev, level, str)
+ Irssi::Server server
+ char *target
+ Irssi::TextUI::Line prev
+ int level
+ char *str
+PREINIT:
+ TEXT_DEST_REC dest;
+CODE:
+ format_create_dest(&dest, server, target, level, NULL);
+ gui_printtext_after(&dest, prev, str);
+
BOOT:
irssi_boot(TextUI__Statusbar);
irssi_boot(TextUI__TextBuffer);