| … | |
… | |
| 330 | sub update_map { |
330 | sub update_map { |
| 331 | my ($self, $x, $y, $w, $h) = @_; |
331 | my ($self, $x, $y, $w, $h) = @_; |
| 332 | |
332 | |
| 333 | delete $self->{tipinfo}; $self->update_tooltip; |
333 | delete $self->{tipinfo}; $self->update_tooltip; |
| 334 | |
334 | |
| 335 | push @{ $self->{queue_draw_areay} }, [$x * TILESIZE - $self->{x}, |
335 | # push @{ $self->{queue_draw_areay} }, [$x * TILESIZE - $self->{x}, |
| 336 | $y * TILESIZE - $self->{y}, |
336 | # $y * TILESIZE - $self->{y}, |
| 337 | $w * TILESIZE, $h * TILESIZE]; |
337 | # $w * TILESIZE, $h * TILESIZE]; |
| 338 | |
338 | |
| 339 | $self->{update_map} ||= add Glib::Idle sub { |
339 | $self->{update_map} ||= add Glib::Idle sub { |
| 340 | delete $self->{update_map}; |
340 | delete $self->{update_map}; |
| 341 | |
341 | |
| 342 | my $map = $self->{map}{map}; |
342 | my $map = $self->{map}{map}; |
| … | |
… | |
| 397 | my ($x, $y, $idx) = @$_; |
397 | my ($x, $y, $idx) = @$_; |
| 398 | |
398 | |
| 399 | push @{ $ov->[$x][$y] }, $idx; |
399 | push @{ $ov->[$x][$y] }, $idx; |
| 400 | } |
400 | } |
| 401 | |
401 | |
| 402 | $self->queue_draw_area (@$_) |
402 | # $self->queue_draw_area (@$_) |
| 403 | for @{ delete $self->{queue_draw_areay} }; |
403 | # for @{ delete $self->{queue_draw_areay} }; |
|
|
404 | $self->invalidate_all; |
| 404 | |
405 | |
| 405 | 0 |
406 | 0 |
| 406 | }; |
407 | }; |
| 407 | } |
408 | } |
| 408 | |
409 | |
