| … | |
… | |
| 654 | $self->add_mode_button ($vb, "bottom", "bottom"); |
654 | $self->add_mode_button ($vb, "bottom", "bottom"); |
| 655 | $self->add_mode_button ($vb, "pick match", "match"); |
655 | $self->add_mode_button ($vb, "pick match", "match"); |
| 656 | |
656 | |
| 657 | $self->tool_widget ($vb); |
657 | $self->tool_widget ($vb); |
| 658 | |
658 | |
| 659 | $vb->pack_start ($self->{no_wall_check} = Gtk2::CheckButton->new ("exclude walls"), 0, 1, 0); |
659 | $vb->pack_start ($self->{no_wall_check} = Gtk2::CheckButton->new ("protect walls"), 0, 1, 0); |
| 660 | $vb->pack_start ($self->{no_monsters_check} = Gtk2::CheckButton->new ("exclude monsters"), 0, 1, 0); |
660 | $vb->pack_start ($self->{no_monsters_check} = Gtk2::CheckButton->new ("protect monsters"), 0, 1, 0); |
| 661 | } |
661 | } |
| 662 | |
662 | |
| 663 | sub check_excluded { |
663 | sub check_excluded { |
| 664 | my ($self, $arch) = @_; |
664 | my ($self, $arch) = @_; |
| 665 | |
665 | |
