# add a line to the end of the top screen
sub addtotop
{
- my $inbuf = shift;
- push @shistory, $inbuf;
- shift @shistory if @shistory > $maxshist;
+ while (@_) {
+ my $inbuf = shift;
+ push @shistory, $inbuf;
+ shift @shistory if @shistory > $maxshist;
+ }
show_screen();
}
for (;;) {
my $t;
- Msg->event_loop(1, 0.010);
+ Msg->event_loop(1, 1);
$top->refresh() if $top->is_wintouched;
$bot->refresh();
$t = time;