From: minima <minima>
Date: Wed, 7 Nov 2001 00:02:10 +0000 (+0000)
Subject: a better way of doing newlines? should make the console pastable again.
X-Git-Tag: R_1_49~20
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=5b16fd51941f17c26f8acaa35183cb8d407d16bc

a better way of doing newlines? should make the console pastable again.
---

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;
 		}