| … | |
… | |
| 7 | =cut |
7 | =cut |
| 8 | |
8 | |
| 9 | use Gtk2; |
9 | use Gtk2; |
| 10 | use Gtk2::Gdk::Keysyms; |
10 | use Gtk2::Gdk::Keysyms; |
| 11 | use Gtk2::SimpleMenu; |
11 | use Gtk2::SimpleMenu; |
| 12 | use GCE::Map; |
12 | |
|
|
13 | use Crossfire; |
|
|
14 | use Crossfire::MapWidget; |
|
|
15 | |
| 13 | use GCE::AttrEdit; |
16 | use GCE::AttrEdit; |
| 14 | use Crossfire; |
|
|
| 15 | use Crossfire::Gtk2; |
|
|
| 16 | |
17 | |
| 17 | use Glib::Object::Subclass |
18 | use Glib::Object::Subclass |
| 18 | Gtk2::Window, |
19 | Gtk2::Window, |
| 19 | signals => { |
20 | signals => { |
| 20 | open_pick => { return_type => undef, param_types => [Glib::String] } |
21 | open_pick => { return_type => undef, param_types => [Glib::String] } |
| … | |
… | |
| 94 | |
95 | |
| 95 | $self->add (my $vb = Gtk2::VBox->new); |
96 | $self->add (my $vb = Gtk2::VBox->new); |
| 96 | $vb->pack_start ($men->{widget}, 0, 1, 0); |
97 | $vb->pack_start ($men->{widget}, 0, 1, 0); |
| 97 | $self->add_accel_group ($men->{accel_group}); |
98 | $self->add_accel_group ($men->{accel_group}); |
| 98 | |
99 | |
| 99 | my $map = new GCE::Map; |
100 | my $map = new Crossfire::MapWidget; |
| 100 | # XXX:load $ARGV _cleanly_? |
101 | # XXX:load $ARGV _cleanly_? |
| 101 | my $path = $ARGV[0] || "$Crossfire::LIB/maps/dragonisland/advguild3"; |
102 | my $path = $ARGV[0] || "$Crossfire::LIB/maps/dragonisland/advguild3"; |
| 102 | $map->set_map (arch2map read_arch $path); |
103 | $map->set_map (arch2map read_arch $path); |
| 103 | $self->{_map} = $map; |
104 | $self->{_map} = $map; |
| 104 | |
105 | |
