| … | |
… | |
| 360 | |
360 | |
| 361 | my $ox = $self->{x}; my $ix = int $ox / TILESIZE; |
361 | my $ox = $self->{x}; my $ix = int $ox / TILESIZE; |
| 362 | my $oy = $self->{y}; my $iy = int $oy / TILESIZE; |
362 | my $oy = $self->{y}; my $iy = int $oy / TILESIZE; |
| 363 | |
363 | |
| 364 | # get_rectangles is buggy in older versions |
364 | # get_rectangles is buggy in older versions |
| 365 | my @rectangles = $Gtk2::VERSION > 1.115 |
365 | my @rectangles = $Gtk2::VERSION >= 1.104 |
| 366 | ? $event->region->get_rectangles : $event->area; |
366 | ? $event->region->get_rectangles : $event->area; |
| 367 | |
367 | |
| 368 | for my $area (@rectangles) { |
368 | for my $area (@rectangles) { |
| 369 | my ($x, $y, $w, $h) = $area->values; # x y w h |
369 | my ($x, $y, $w, $h) = $area->values; # x y w h |
| 370 | |
370 | |
