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

Comparing deliantra/gde/gce (file contents):
Revision 1.9 by elmex, Mon Feb 6 09:21:33 2006 UTC vs.
Revision 1.13 by root, Sun Feb 12 04:50:29 2006 UTC

… …
15my $VARDIR = "$ENV{HOME}/.gcfedit"; 15my $VARDIR = "$ENV{HOME}/.gcfedit";
16 16
17mkdir $VARDIR; 17mkdir $VARDIR;
18our $PICKDIR = "$Crossfire::LIB/maps/editor/picks"; 18our $PICKDIR = "$Crossfire::LIB/maps/editor/picks";
19 19
20Crossfire::init $VARDIR;
21Crossfire::Tilecache::init_tilecache "$VARDIR/tilecache";
22
23use GCE::MainWindow; 20use GCE::MainWindow;
24use GCE::PickWindow; 21use GCE::PickWindow;
25 22
26my $w = GCE::MainWindow->new; 23my $w = GCE::MainWindow->new;
27 24
28$w->signal_connect (open_pick => sub { 25$w->set_default_size (800, 600);
29 # XXX: How to give pick window the pickname ?
30 my $p = GCE::PickWindow->new;
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";
39});
40 26
41$w->show_all; 27$w->show_all;
42 28
43Gtk2->main; 29Gtk2->main;
44 30

Diff Legend

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