| … | |
… | |
| 61 | my ($f, $event) = @_; |
61 | my ($f, $event) = @_; |
| 62 | |
62 | |
| 63 | if ($event->button == 1 && $event->state & "shift-mask") { |
63 | if ($event->button == 1 && $event->state & "shift-mask") { |
| 64 | |
64 | |
| 65 | my ($mx, $my) = $map->coord ($event->x, $event->y); |
65 | my ($mx, $my) = $map->coord ($event->x, $event->y); |
| 66 | my $s = map_get_tile_stack ($map, $mx, $my); |
66 | my $as = $map->get ($mx, $my); |
| 67 | |
67 | |
| 68 | my $arch = $s->[-1] |
68 | my $arch = $as->[-1] |
| 69 | or return; |
69 | or return; |
| 70 | |
70 | |
| 71 | $self->{arch_edit_cb} and $self->{arch_edit_cb}->($arch); |
71 | $self->{arch_edit_cb} and $self->{arch_edit_cb}->($arch); |
| 72 | |
72 | |
| 73 | } elsif ($event->button == 1) { |
73 | } elsif ($event->button == 1) { |
| 74 | |
74 | |
| 75 | my ($mx, $my) = $map->coord ($event->x, $event->y); |
75 | my ($mx, $my) = $map->coord ($event->x, $event->y); |
| 76 | my $s = map_get_tile_stack ($map, $mx, $my); |
76 | my $as = $map->get ($mx, $my); |
| 77 | |
77 | |
| 78 | my $arch = $s->[-1] |
78 | my $arch = $as->[-1] |
| 79 | or return; |
79 | or return; |
| 80 | |
80 | |
| 81 | $self->{set_sel_cb} and $self->{set_sel_cb}->($arch); |
81 | $self->{set_sel_cb} and $self->{set_sel_cb}->($arch); |
| 82 | } |
82 | } |
| 83 | }); |
83 | }); |
