#!/opt/bin/perl
=head1 NAME

  gce - gtk (perl) crossfire editor

=cut

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

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

mkdir $VARDIR;

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

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

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

$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