#!/opt/bin/perl
=head1 NAME

  gce - gtk (perl) crossfire editor

=cut

our $VERSION='0.1';

use Gtk2 -init;
use Crossfire;
use Crossfire::Gtk2;

my $pickdir = "$Crossfire::LIB/maps/editor/picks";

my $VARDIR = "$ENV{HOME}/.gcfedit";

mkdir $VARDIR;
our $PICKDIR = "$Crossfire::LIB/maps/editor/picks";

Crossfire::init ($VARDIR);
Crossfire::Gtk2::init_tilecache ("$VARDIR/tilecache");

use GCE::MainWindow;
use GCE::PickWindow;
require GCE::Map;

my $w = GCE::MainWindow->new;

$w->signal_connect (open_pick => sub {
      # XXX: How to give pick window the pickname ?
      my $p = GCE::PickWindow->new;
      $p->show_all;
});

$w->show_all;

Gtk2->main;

=head1 AUTHOR

 Marc Lehmann <schmorp@schmorp.de>
 http://home.schmorp.de/

 Robin Redeker <elmex@ta-sa.org>
 http://www.ta-sa.org/

=cut