alter spacing at the end of a dx line slightly

diff --git a/perl/Spot.pm b/perl/Spot.pm
index ae773e12f53cd5dfc34c1574603e28ba452e52c5..963ed4a5895945f9cbf2bf8a7f5bf0900e8a3b10 100644 (file)
--- 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 df524beb140241de71b4e19265fc88d25281fb33..8af9f3b3aed640fb6500efa34d1c471a1f192b38 100755 (executable)
--- 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;