| … | |
… | |
| 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? |
| 101 | $map->{map} = arch2map read_arch "$Crossfire::LIB/maps/mlab/university1"; |
101 | my $path = $ARGV[0] || "$Crossfire::LIB/maps/mlab/university1"; |
|
|
102 | $map->set_map (arch2map read_arch $path); |
| 102 | $self->{_map} = $map; |
103 | $self->{_map} = $map; |
| 103 | |
104 | |
| 104 | $vb->pack_start ($map, 1, 1, 0); |
105 | $vb->pack_start ($map, 1, 1, 0); |
| 105 | } |
106 | } |
| 106 | |
107 | |
| … | |
… | |
| 117 | ); |
118 | ); |
| 118 | $fc->add_shortcut_folder ("$Crossfire::LIB/maps"); |
119 | $fc->add_shortcut_folder ("$Crossfire::LIB/maps"); |
| 119 | |
120 | |
| 120 | if ('ok' eq $fc->run) { |
121 | if ('ok' eq $fc->run) { |
| 121 | my $map = arch2map read_arch $fc->get_filename; |
122 | my $map = arch2map read_arch $fc->get_filename; |
| 122 | # XXX: $self->{_map}->set_map ($map) ... |
123 | $self->{_map}->set_map ($map); |
| 123 | $self->{_map}->{map} = $map; |
|
|
| 124 | $self->{_map}->hide; |
124 | $self->{_map}->hide; |
| 125 | $self->{_map}->show_all; |
125 | $self->{_map}->show_all; |
| 126 | } |
126 | } |
| 127 | |
127 | |
| 128 | $fc->destroy; |
128 | $fc->destroy; |
