| … | |
… | |
| 19 | |
19 | |
| 20 | my $self = $class->SUPER::new (%arg, |
20 | my $self = $class->SUPER::new (%arg, |
| 21 | setup_req => { |
21 | setup_req => { |
| 22 | extmap => 1, |
22 | extmap => 1, |
| 23 | excmd => 1, |
23 | excmd => 1, |
| 24 | xwidget2 => 1,#d# |
24 | widget => 1, |
| 25 | %{$arg{setup_req} || {}}, |
25 | %{$arg{setup_req} || {}}, |
| 26 | }, |
26 | }, |
| 27 | ); |
27 | ); |
| 28 | |
28 | |
| 29 | $self->{map_widget}->clr_commands; |
29 | $self->{map_widget}->clr_commands; |
| … | |
… | |
| 613 | } |
613 | } |
| 614 | } |
614 | } |
| 615 | |
615 | |
| 616 | if ($delay) { |
616 | if ($delay) { |
| 617 | # delay the map drawing a tiny bit in the hope of getting the missing fetched |
617 | # delay the map drawing a tiny bit in the hope of getting the missing fetched |
| 618 | Event->timer (after => 0.03, cb => sub { |
618 | my $delay_draw; $delay_draw = EV::timer 0.03, 0, sub { |
| 619 | $_[0]->w->cancel; |
619 | undef $delay_draw; |
| 620 | $self->{map_widget}->update |
620 | $self->{map_widget}->update |
| 621 | if $self->{map_widget}; |
621 | if $self->{map_widget}; |
| 622 | }); |
622 | }; |
| 623 | } else { |
623 | } else { |
| 624 | $self->{map_widget}->update; |
624 | $self->{map_widget}->update; |
| 625 | } |
625 | } |
| 626 | } |
626 | } |
| 627 | |
627 | |
