| … | |
… | |
| 80 | |
80 | |
| 81 | $self->{last_pick} = $arch; |
81 | $self->{last_pick} = $arch; |
| 82 | |
82 | |
| 83 | my $ar = GCE::ArchRef->new (arch => $arch); |
83 | my $ar = GCE::ArchRef->new (arch => $arch); |
| 84 | $::MAINWIN->update_attr_editor ($ar); |
84 | $::MAINWIN->update_attr_editor ($ar); |
| 85 | $::MAINWIN->set_edit_tool ('place'); |
|
|
| 86 | |
85 | |
| 87 | } elsif ($event->button == 3) { |
86 | } elsif ($event->button == 3) { |
| 88 | |
87 | |
| 89 | my ($mx, $my) = $map->coord ($event->x, $event->y); |
88 | my ($mx, $my) = $map->coord ($event->x, $event->y); |
| 90 | my $as = $map->get ($mx, $my); |
89 | my $as = $map->get ($mx, $my); |
