| … | |
… | |
| 95 | $self->add (my $vb = Gtk2::VBox->new); |
95 | $self->add (my $vb = Gtk2::VBox->new); |
| 96 | $vb->pack_start ($men->{widget}, 0, 1, 0); |
96 | $vb->pack_start ($men->{widget}, 0, 1, 0); |
| 97 | $self->add_accel_group ($men->{accel_group}); |
97 | $self->add_accel_group ($men->{accel_group}); |
| 98 | |
98 | |
| 99 | my $map = new GCE::Map; |
99 | my $map = new GCE::Map; |
| 100 | # XXX:load $ARGV? |
100 | # XXX:load $ARGV _cleanly_? |
| 101 | my $path = $ARGV[0] || "$Crossfire::LIB/maps/mlab/university1"; |
101 | my $path = $ARGV[0] || "$Crossfire::LIB/maps/mlab/university1"; |
| 102 | $map->set_map (arch2map read_arch $path); |
102 | $map->set_map (arch2map read_arch $path); |
| 103 | $self->{_map} = $map; |
103 | $self->{_map} = $map; |
| 104 | |
104 | |
| 105 | $vb->pack_start ($map, 1, 1, 0); |
105 | $vb->pack_start ($map, 1, 1, 0); |
