projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2. Add full individual checking for all PC protocol fields in all messages
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 643286f61c4c6091e7efb8c7c9a463c5ff2f0375..46e42ad1245806af65ea1b33f694a59c63dfca36 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-30,7
+30,7
@@
use DXVars;
use DXDebug;
use DXUtil;
use IO::File;
use DXDebug;
use DXUtil;
use IO::File;
-use Curses;
+use Curses
1.05
;
use Console;
use Console;
@@
-59,7
+59,8
@@
sub do_initscr
if ($has_colors) {
start_color();
if ($has_colors) {
start_color();
- init_pair(0, $foreground, $background);
+ init_pair("0", $foreground, $background);
+# init_pair(0, $background, $foreground);
init_pair(1, COLOR_RED, $background);
init_pair(2, COLOR_YELLOW, $background);
init_pair(3, COLOR_GREEN, $background);
init_pair(1, COLOR_RED, $background);
init_pair(2, COLOR_YELLOW, $background);
init_pair(3, COLOR_GREEN, $background);
@@
-74,6
+75,7
@@
sub do_initscr
init_pair(12, COLOR_MAGENTA, COLOR_BLUE);
init_pair(13, COLOR_YELLOW, COLOR_GREEN);
init_pair(14, COLOR_RED, COLOR_GREEN);
init_pair(12, COLOR_MAGENTA, COLOR_BLUE);
init_pair(13, COLOR_YELLOW, COLOR_GREEN);
init_pair(14, COLOR_RED, COLOR_GREEN);
+ $scr->attrset(COLOR_PAIR(0));
}
$top = $scr->subwin(LINES()-4, COLS, 0, 0);
}
$top = $scr->subwin(LINES()-4, COLS, 0, 0);
@@
-384,7
+386,8
@@
sub rec_stdin
$pos++;
$lth++;
} elsif ($r eq "\014" || $r eq "\022") {
$pos++;
$lth++;
} elsif ($r eq "\014" || $r eq "\022") {
- #do_resize();
+ touchwin($curscr, 1);
+ refresh($curscr);
return;
} elsif ($r eq "\013") {
$inbuf = substr($inbuf, 0, $pos);
return;
} elsif ($r eq "\013") {
$inbuf = substr($inbuf, 0, $pos);