ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/gde/gce
(Generate patch)

Comparing deliantra/gde/gce (file contents):
Revision 1.2 by elmex, Sun Feb 5 02:08:48 2006 UTC vs.
Revision 1.10 by elmex, Mon Feb 6 23:06:52 2006 UTC

… …
3 3
4 gce - gtk (perl) crossfire editor 4 gce - gtk (perl) crossfire editor
5 5
6=cut 6=cut
7 7
8our $VERSION='0.1';
9
8use Gtk2 -init; 10use Gtk2 -init;
11
9use Crossfire; 12use Crossfire;
10use Crossfire::Gtk2; 13use Crossfire::Tilecache;
11 14
12my $VARDIR = "$ENV{HOME}/.gcfedit"; 15my $VARDIR = "$ENV{HOME}/.gcfedit";
16
13mkdir $VARDIR; 17mkdir $VARDIR;
18our $PICKDIR = "$Crossfire::LIB/maps/editor/picks";
14 19
15Crossfire::init ($VARDIR); 20Crossfire::init $VARDIR;
16Crossfire::Gtk2::init_tilecache ($VARDIR.'/tilecache'); 21Crossfire::Tilecache::init_tilecache "$VARDIR/tilecache";
17 22
18use GCE::MainWindow; 23use GCE::MainWindow;
24use GCE::PickWindow;
25
19my $w = GCE::MainWindow->new; 26my $w = GCE::MainWindow->new;
27
28# XXX: signals don't feel right => move this stuff to MainWindow, it should
29# deal with all the stuff it does
30$w->signal_connect (update_stack_view => sub {
31 my ($t, $x, $y, $a) = @_;
32 print "$x $y: " . join (',', map { $_->{_name} } @$a) . "\n";
33 });
20 34
21$w->show_all; 35$w->show_all;
22 36
23Gtk2->main; 37Gtk2->main;
24 38

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines