+sub mydbg
+{
+ local *STDOUT = undef;
+ dbg(@_);
+}
+
+# do the screen initialisation
+sub do_initscr
+{
+ $scr = new Curses;
+ if ($has_colors) {
+ start_color();
+ 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(4, COLOR_CYAN, $background);
+ init_pair(5, COLOR_BLUE, $background);
+ init_pair(6, COLOR_MAGENTA, $background);
+ init_pair(7, COLOR_RED, COLOR_BLUE);
+ init_pair(8, COLOR_YELLOW, COLOR_BLUE);
+ init_pair(9, COLOR_GREEN, COLOR_BLUE);
+ init_pair(10, COLOR_CYAN, COLOR_BLUE);
+ init_pair(11, COLOR_BLUE, COLOR_RED);
+ init_pair(12, COLOR_MAGENTA, COLOR_BLUE);
+ init_pair(13, COLOR_YELLOW, COLOR_GREEN);
+ init_pair(14, COLOR_RED, COLOR_GREEN);
+ eval { assume_default_colors($foreground, $background) };
+ }
+
+ $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);
+ $bot->nodelay(1);
+ $scr->refresh();
+
+ $pagel = $lines-4;
+ $mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
+}
+
+sub do_resize
+{
+ endwin() if $scr;
+ initscr();
+ raw();
+ noecho();
+ nonl();
+ $lines = LINES;
+ $cols = COLS;
+ $has_colors = has_colors();
+ do_initscr();
+
+ $winch = 0;
+ $SIG{'WINCH'} = sub {$winch = 1};
+ show_screen();
+}