ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/gde/GCE/MainWindow.pm
(Generate patch)

Comparing deliantra/gde/GCE/MainWindow.pm (file contents):
Revision 1.56 by elmex, Sat Apr 1 19:13:27 2006 UTC vs.
Revision 1.57 by elmex, Sat Apr 1 19:57:41 2006 UTC

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
386sub update_edit_tool { 387sub 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;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines