projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5b16fd5
)
alter spacing at the end of a dx line slightly
author
minima
<minima>
Wed, 7 Nov 2001 00:40:04 +0000
(
00:40
+0000)
committer
minima
<minima>
Wed, 7 Nov 2001 00:40:04 +0000
(
00:40
+0000)
perl/Spot.pm
patch
|
blob
|
history
perl/console.pl
patch
|
blob
|
history
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;
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 %-
30
s %s$loc", "$_[4]:", $_[0], $_[1], $_[3], $t ;
+ return sprintf "DX de %-7.7s%11.1f %-12.12s %-
29
s %s$loc", "$_[4]:", $_[0], $_[1], $_[3], $t ;
}
# format a spot for user output in list mode
}
# 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 = $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->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);
$bot->keypad(1);
$bot->move(1,0);
$bot->meta(1);
@@
-106,7
+108,8
@@
sub do_resize
initscr();
raw();
noecho();
initscr();
raw();
noecho();
- $lines = LINES;
+ nonl();
+ $lines = LINES;
$cols = COLS;
$has_colors = has_colors();
do_initscr();
$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") if $spos > 0;
setattr($line);
$top->addstr($line);
+# $top->addstr("\n");
$top->attrset(COLOR_PAIR(0)) if $has_colors;
$spos = @shistory;
$top->attrset(COLOR_PAIR(0)) if $has_colors;
$spos = @shistory;