aboutsummaryrefslogtreecommitdiffstats
path: root/feature-tests/sbar-crash.pl
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2010-10-14 20:42:31 +0000
committerTom Feist <shabble@metavore.org>2010-10-14 20:42:31 +0000
commit91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e (patch)
treead714832c76eb1c72537db47c1a309261d2385ab /feature-tests/sbar-crash.pl
parentuberprompt: removed dead code from startup func. (diff)
downloadirssi-scripts-91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e.tar.gz
irssi-scripts-91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e.zip
misc: tidying up my working dir
Diffstat (limited to '')
-rw-r--r--feature-tests/sbar-crash.pl15
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);
+}
+