diff options
Diffstat (limited to 'feature-tests/sbar-crash.pl')
-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); +} + |