diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-10-20 19:52:07 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-10-20 19:52:07 +0000 |
| commit | 76c6e9ab831b53e0189d00a81d00e0e956fa7b90 (patch) | |
| tree | a12001904bf473f2c9b5ca8607d69fe62e06c32a /src/perl/textui/TextUI.xs | |
| parent | 17f4d6b5de3a2a753091fcea39f63151183b5a30 (diff) | |
| download | irssi-76c6e9ab831b53e0189d00a81d00e0e956fa7b90.zip | |
Dependencies finally work correctly in perl libraries (they're each compiled
separately now). Added statusbar code to available to perl, it's now
possible to create new statusbar items with perl scripts.
statusbar_items_redraw(char *name) can now be used to easily redraw all
named statusbar items in screen.
Probably several other changes I've already forgotten :)
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1861 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/textui/TextUI.xs')
| -rw-r--r-- | src/perl/textui/TextUI.xs | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs index f3978212..c92da84a 100644 --- a/src/perl/textui/TextUI.xs +++ b/src/perl/textui/TextUI.xs @@ -61,6 +61,14 @@ static void perl_line_info_fill_hash(HV *hv, LINE_INFO_REC *info) hv_store(hv, "time", 4, newSViv(info->time), 0); } +static void perl_statusbar_item_fill_hash(HV *hv, SBAR_ITEM_REC *item) +{ + hv_store(hv, "min_size", 8, newSViv(item->min_size), 0); + hv_store(hv, "max_size", 8, newSViv(item->max_size), 0); + hv_store(hv, "xpos", 4, newSViv(item->xpos), 0); + hv_store(hv, "size", 4, newSViv(item->size), 0); +} + static PLAIN_OBJECT_INIT_REC textui_plains[] = { { "Irssi::TextUI::MainWindow", (PERL_OBJECT_FUNC) perl_main_window_fill_hash }, { "Irssi::TextUI::TextBuffer", (PERL_OBJECT_FUNC) perl_text_buffer_fill_hash }, @@ -68,6 +76,7 @@ static PLAIN_OBJECT_INIT_REC textui_plains[] = { { "Irssi::TextUI::Line", (PERL_OBJECT_FUNC) perl_line_fill_hash }, { "Irssi::TextUI::LineCache", (PERL_OBJECT_FUNC) perl_line_cache_fill_hash }, { "Irssi::TextUI::LineInfo", (PERL_OBJECT_FUNC) perl_line_info_fill_hash }, + { "Irssi::TextUI::StatusbarItem", (PERL_OBJECT_FUNC) perl_statusbar_item_fill_hash }, { NULL, NULL } }; @@ -86,6 +95,12 @@ CODE: initialized = TRUE; irssi_add_plains(textui_plains); + perl_statusbar_init(); + +void +deinit() +CODE: + perl_statusbar_deinit(); MODULE = Irssi::TextUI PACKAGE = Irssi @@ -95,5 +110,7 @@ gui_printtext(xpos, ypos, str) int ypos char *str -INCLUDE: TextBuffer.xs -INCLUDE: TextBufferView.xs +BOOT: + irssi_boot(TextUI__Statusbar); + irssi_boot(TextUI__TextBuffer); + irssi_boot(TextUI__TextBufferView); |