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.10 by elmex, Mon Feb 6 23:06:52 2006 UTC

… …
23use GCE::MainWindow; 23use GCE::MainWindow;
24use GCE::PickWindow; 24use GCE::PickWindow;
25 25
26my $w = GCE::MainWindow->new; 26my $w = GCE::MainWindow->new;
27 27
28$w->signal_connect (open_pick => sub {
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 28# XXX: signals don't feel right => move this stuff to MainWindow, it should
35# deal with all the stuff it does 29# deal with all the stuff it does
36$w->signal_connect (update_stack_view => sub { 30$w->signal_connect (update_stack_view => sub {
37 my ($t, $x, $y, $a) = @_; 31 my ($t, $x, $y, $a) = @_;
38 print "$x $y: " . join (',', map { $_->{_name} } @$a) . "\n"; 32 print "$x $y: " . join (',', map { $_->{_name} } @$a) . "\n";
39}); 33 });
40 34
41$w->show_all; 35$w->show_all;
42 36
43Gtk2->main; 37Gtk2->main;
44 38

Diff Legend

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