… | |
… | |
372 | $self->update_edit_tool ($self->{edit_collection}{place}, "Place");; |
372 | $self->update_edit_tool ($self->{edit_collection}{place}, "Place");; |
373 | } elsif ($name eq 'erase') { |
373 | } elsif ($name eq 'erase') { |
374 | $self->update_edit_tool ($self->{edit_collection}{erase}, "Erase");; |
374 | $self->update_edit_tool ($self->{edit_collection}{erase}, "Erase");; |
375 | } elsif ($name eq 'select') { |
375 | } elsif ($name eq 'select') { |
376 | $self->update_edit_tool ($self->{edit_collection}{select}, "Select");; |
376 | $self->update_edit_tool ($self->{edit_collection}{select}, "Select");; |
|
|
377 | $self->{edit_collection}{select}->update_overlay; |
377 | } elsif ($name eq 'perl') { |
378 | } elsif ($name eq 'perl') { |
378 | $self->update_edit_tool ($self->{edit_collection}{perl}, "Eval");; |
379 | $self->update_edit_tool ($self->{edit_collection}{perl}, "Eval");; |
379 | } elsif ($name eq 'connectexit') { |
380 | } elsif ($name eq 'connectexit') { |
380 | $self->update_edit_tool ($self->{edit_collection}{connectexit}, "Connect Exit");; |
381 | $self->update_edit_tool ($self->{edit_collection}{connectexit}, "Connect Exit");; |
381 | } elsif ($name eq 'followexit') { |
382 | } elsif ($name eq 'followexit') { |
… | |
… | |
383 | } |
384 | } |
384 | } |
385 | } |
385 | |
386 | |
386 | sub update_edit_tool { |
387 | sub update_edit_tool { |
387 | my ($self, $tool, $name) = @_; |
388 | my ($self, $tool, $name) = @_; |
|
|
389 | |
|
|
390 | for (values %{$self->{loaded_maps}}) { |
|
|
391 | $_->{map}->overlay ('selection') |
|
|
392 | } |
388 | |
393 | |
389 | $self->{edit_tool}->set_text ($name); |
394 | $self->{edit_tool}->set_text ($name); |
390 | $self->{sel_editaction} = $tool; |
395 | $self->{sel_editaction} = $tool; |
391 | |
396 | |
392 | my $widget = $tool->tool_widget; |
397 | my $widget = $tool->tool_widget; |