Pass the number of columns to the command

Users can use this to align their text.
This commit is contained in:
Tom Willemse 2013-08-12 01:28:02 +02:00
parent 5c6d14bca8
commit 159f9d2187

View file

@ -45,7 +45,7 @@ sub refresh {
my $text = " " x $ncol; my $text = " " x $ncol;
my $rend = [($self->{rs_tabbar}) x $ncol]; my $rend = [($self->{rs_tabbar}) x $ncol];
my $output = `$self->{command}`; my $output = `$self->{command} $ncol`;
substr $text, 0, length $output, $output; substr $text, 0, length $output, $output;
my $idx = 0; my $idx = 0;