diff options
| author | Wouter Coekaerts <coekie@irssi.org> | 2007-08-04 08:35:59 +0000 |
|---|---|---|
| committer | coekie <coekie@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2007-08-04 08:35:59 +0000 |
| commit | dfb892559cd68977be60a1908a67be1fb3874c69 (patch) | |
| tree | c9024af5fb0f659e38c33752245bb952db9d6f22 /src/perl/textui/TextUI.xs | |
| parent | 5a639efef38a7a38bc5501c958a40b6c028b19e8 (diff) | |
| download | irssi-dfb892559cd68977be60a1908a67be1fb3874c69.zip | |
Add Perl bindings for some gui_entry methods.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4590 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/textui/TextUI.xs')
| -rw-r--r-- | src/perl/textui/TextUI.xs | 19 |
1 files changed, 19 insertions, 0 deletions
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 |