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

Comparing deliantra/gde/gce (file contents):
Revision 1.6 by elmex, Sun Feb 5 16:47:31 2006 UTC vs.
Revision 1.9 by elmex, Mon Feb 6 09:21:33 2006 UTC

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

Diff Legend

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