diff options
| author | Tom Feist <shabble@metavore.org> | 2010-10-14 20:42:31 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2010-10-14 20:42:31 +0000 |
| commit | 91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e (patch) | |
| tree | ad714832c76eb1c72537db47c1a309261d2385ab /feature-tests/sbar-crash.pl | |
| parent | uberprompt: removed dead code from startup func. (diff) | |
| download | irssi-scripts-91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e.tar.gz irssi-scripts-91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e.zip | |
misc: tidying up my working dir
Diffstat (limited to '')
| -rw-r--r-- | feature-tests/sbar-crash.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/feature-tests/sbar-crash.pl b/feature-tests/sbar-crash.pl new file mode 100644 index 0000000..5547bbd --- /dev/null +++ b/feature-tests/sbar-crash.pl @@ -0,0 +1,15 @@ +use strict; +use warnings; + +use Irssi; +use Irssi::TextUI; # for sbar_items_redraw + +Irssi::statusbar_item_register('uberprompt', 0, 'uberprompt_draw'); +Irssi::command("STATUSBAR prompt add -alignment left -before input -priority '-1' uberprompt"); + +sub uberprompt_draw { + my ($sb_item, $get_size_only) = @_; + print "This is a test"; + return $sb_item->default_handler($get_size_only, '{uberprompt $winname}', '', 0); +} + |