From 5b16fd51941f17c26f8acaa35183cb8d407d16bc Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 7 Nov 2001 00:02:10 +0000 Subject: [PATCH] a better way of doing newlines? should make the console pastable again. --- perl/console.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/console.pl b/perl/console.pl index fd033d90..df524beb 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -190,8 +190,9 @@ sub show_screen my $line = $shistory[$p]; my $lines = measure($line); last if $i + $lines > $pagel; + $top->addstr("\n") if $i; setattr($line); - $top->addstr($i, 0, "$line\n"); + $top->addstr($line); $top->attrset(COLOR_PAIR(0)) if $has_colors; $i += $lines; } -- 2.43.0