From 0aaec2fed8977d5e1cd02a4f1432bdde135a1044 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 7 Nov 2001 00:40:04 +0000
Subject: [PATCH] alter spacing at the end of a dx line slightly

---
 perl/Spot.pm    | 2 +-
 perl/console.pl | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/perl/Spot.pm b/perl/Spot.pm
index ae773e12..963ed4a5 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -273,7 +273,7 @@ sub formatb
 	my $loc = $ref->qra if $ref && $ref->qra && $wantgrid;
 	$loc = ' ' . substr($ref->qra, 0, 4) if $loc;
 	$loc = "" unless $loc;
-	return sprintf "DX de %-7.7s%11.1f  %-12.12s %-30s %s$loc", "$_[4]:", $_[0], $_[1], $_[3], $t ;
+	return sprintf "DX de %-7.7s%11.1f  %-12.12s %-29s %s$loc", "$_[4]:", $_[0], $_[1], $_[3], $t ;
 }
 
 # format a spot for user output in list mode
diff --git a/perl/console.pl b/perl/console.pl
index df524beb..8af9f3b3 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -85,11 +85,13 @@ sub do_initscr
 	$top = $scr->subwin($lines-4, $cols, 0, 0);
 	$top->intrflush(0);
 	$top->scrollok(1);
+	$top->idlok(1);
 	$top->meta(1);
 #	$scr->addstr($lines-4, 0, '-' x $cols);
 	$bot = $scr->subwin(3, $cols, $lines-3, 0);
 	$bot->intrflush(0);
 	$bot->scrollok(1);
+	$top->idlok(1);
 	$bot->keypad(1);
 	$bot->move(1,0);
 	$bot->meta(1);
@@ -106,7 +108,8 @@ sub do_resize
 	initscr();
 	raw();
 	noecho();
-	$lines = LINES;
+	nonl();
+ 	$lines = LINES;
 	$cols = COLS;
 	$has_colors = has_colors();
 	do_initscr();
@@ -168,6 +171,7 @@ sub show_screen
 		$top->addstr("\n") if $spos > 0;
 		setattr($line);
 		$top->addstr($line);
+#		$top->addstr("\n");
 		$top->attrset(COLOR_PAIR(0)) if $has_colors;
 		$spos = @shistory;
 		
-- 
2.43.0