[ViewVC] Diff of: cvs/deliantra/gde/GCE/MainWindow.pm

Comparing deliantra/gde/GCE/MainWindow.pm (file contents):
Revision 1.33 by elmex, Wed Mar 15 21:45:54 2006 UTC vs.
Revision 1.34 by elmex, Wed Mar 15 23:45:48 2006 UTC

 }
 sub build_buttons {
    my ($self) = @_;
-   my $tbl = Gtk2::Table->new (2, 2);
+   my $tbl = Gtk2::Table->new (2, 4);
-   my $plcinfo = { width => 1, height => 3, next => [0, 0] };
+   my $plcinfo = { width => 1, height => 4, next => [0, 0] };
    $self->{edit_collection}{pick}  = GCE::EditAction::Pick->new;
    $self->{edit_collection}{place} = GCE::EditAction::Place->new;
    $self->{edit_collection}{erase} = GCE::EditAction::Erase->new;
+   $self->{edit_collection}{select}= GCE::EditAction::Select->new;
    $self->set_edit_tool ('pick');
    $self->add_button ($tbl, $plcinfo, "Pick",  sub { $self->set_edit_tool ('pick') });
    $self->add_button ($tbl, $plcinfo, "Place", sub { $self->set_edit_tool ('place') });
    $self->add_button ($tbl, $plcinfo, "Erase", sub { $self->set_edit_tool ('erase') });
+   $self->add_button ($tbl, $plcinfo, "Select", sub { $self->set_edit_tool ('select') });
    return $tbl;
 }
 sub set_edit_tool {
       $self->update_edit_tool ($self->{edit_collection}{pick}, "Pick");;
    } elsif ($name eq 'place') {
       $self->update_edit_tool ($self->{edit_collection}{place}, "Place");;
    } elsif ($name eq 'erase') {
       $self->update_edit_tool ($self->{edit_collection}{erase}, "Erase");;
+   } elsif ($name eq 'select') {
+      $self->update_edit_tool ($self->{edit_collection}{select}, "Select");;
    }
 }
 sub update_edit_tool {
    my ($self, $tool, $name) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines