diff options
author | Tom Feist <shabble@metavore.org> | 2010-10-06 22:51:10 +0000 |
---|---|---|
committer | Tom Feist <shabble@metavore.org> | 2010-10-06 22:51:10 +0000 |
commit | bcb0c884b46815b889e5fd4011226feaba2b3369 (patch) | |
tree | 1c0d49cedace1fcbe4a4cf618000f9efc813c6b6 | |
parent | fixed priorities (-1) and position (100) of prompt statusbars (diff) | |
download | irssi-scripts-bcb0c884b46815b889e5fd4011226feaba2b3369.tar.gz irssi-scripts-bcb0c884b46815b889e5fd4011226feaba2b3369.zip |
added /print_test to check rev. video stuff is behaving.
-rw-r--r-- | prompt_info/prompt_replace.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/prompt_info/prompt_replace.pl b/prompt_info/prompt_replace.pl index 3055afc..7c8ecc1 100644 --- a/prompt_info/prompt_replace.pl +++ b/prompt_info/prompt_replace.pl @@ -46,8 +46,9 @@ sub update_terminal_size { if ($line =~ m/\s*(\d+)\s*rows\s*;\s*(\d+)\s*columns\s*;/) { $term_h = $1; $term_w = $2; + print "terminal size detected as $term_w x $term_h" if DEBUG; } else { - print "Failed to detect terminal size"; + print "Failed to detect terminal size" if DEBUG; } } @@ -85,6 +86,10 @@ sub init { Irssi::command("^BIND ^F /visual toggle"); Irssi::command("^BIND ^G /visual clear"); + Irssi::command_bind 'print_test', + sub { + Irssi::gui_printtext(0, 0, '%8hello there%n'); + }; # redraw interception Irssi::signal_add_last('command redraw', \&augment_redraw); |