aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-07-21 03:14:16 -04:00
Code

Add Perl bindings for some gui_entry methods.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4590 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Wouter Coekaerts 2007-08-04 08:35:59 +00:00 committed by coekie
parent 5a639efef3
commit dfb892559c
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/perl/textui/TextUI.xs
View File

@ -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

1
src/perl/textui/module.h
View File

@ -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;