#!/opt/bin/perl
=head1 NAME

  gce - gtk (perl) crossfire editor

=cut

our $VERSION='0.1';

use Gtk2 -init;

use Crossfire;
use Crossfire::Tilecache;

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

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

Crossfire::init $VARDIR;
Crossfire::Tilecache::init_tilecache "$VARDIR/tilecache";

use GCE::MainWindow;
use GCE::PickWindow;

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

$w->set_default_size (800, 600);

$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