| … | |
… | |
| 288 | $vb->pack_start (my $tbl = $self->build_buttons, 1, 1, 0); |
288 | $vb->pack_start (my $tbl = $self->build_buttons, 1, 1, 0); |
| 289 | $vb->pack_start ($self->{edit_tool} = Gtk2::Label->new, 0, 1, 0); |
289 | $vb->pack_start ($self->{edit_tool} = Gtk2::Label->new, 0, 1, 0); |
| 290 | $vb->pack_start ($self->{pick_view} = Gtk2::Label->new, 0, 1, 0); |
290 | $vb->pack_start ($self->{pick_view} = Gtk2::Label->new, 0, 1, 0); |
| 291 | |
291 | |
| 292 | # XXX:load $ARGV _cleanly_? |
292 | # XXX:load $ARGV _cleanly_? |
| 293 | $self->open_map_editor ($ARGV[0] || "$Crossfire::LIB/maps/dragonisland/advguild3"); |
293 | $self->open_map_editor ($_) |
|
|
294 | for @ARGV; |
| 294 | |
295 | |
| 295 | $self->signal_connect ('delete-event' => sub { |
296 | $self->signal_connect ('delete-event' => sub { |
| 296 | Gtk2->main_quit; |
297 | Gtk2->main_quit; |
| 297 | }); |
298 | }); |
| 298 | |
299 | |
| … | |
… | |
| 309 | |
310 | |
| 310 | my $fc = new Gtk2::FileChooserDialog ( |
311 | my $fc = new Gtk2::FileChooserDialog ( |
| 311 | 'gce - open map', undef, 'open', 'gtk-cancel' => 'cancel', 'gtk-ok' => 'ok' |
312 | 'gce - open map', undef, 'open', 'gtk-cancel' => 'cancel', 'gtk-ok' => 'ok' |
| 312 | ); |
313 | ); |
| 313 | |
314 | |
| 314 | $fc->add_shortcut_folder ("$Crossfire::LIB/maps"); |
315 | $fc->add_shortcut_folder ("$Crossfire::LIB/maps") if -d "$Crossfire::LIB/maps"; |
| 315 | $fc->add_shortcut_folder ($_) for keys %{$self->{fc_last_folders}}; |
316 | $fc->add_shortcut_folder ($_) for keys %{$self->{fc_last_folders}}; |
| 316 | $fc->set_current_folder ($self->{fc_last_folder} || "$Crossfire::LIB/maps"); |
317 | $fc->set_current_folder ($self->{fc_last_folder} || "$Crossfire::LIB/maps"); |
| 317 | |
318 | |
| 318 | $fc |
319 | $fc |
| 319 | } |
320 | } |
