From 0aaec2fed8977d5e1cd02a4f1432bdde135a1044 Mon Sep 17 00:00:00 2001 From: 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