… | … | ||
---|---|---|---|
23 | use GCE::MainWindow; | 23 | use GCE::MainWindow; |
24 | use GCE::PickWindow; | 24 | use GCE::PickWindow; |
25 | 25 | ||
26 | my $w = GCE::MainWindow->new; | 26 | my $w = GCE::MainWindow->new; |
27 | 27 | ||
28 | $w->signal_connect (open_pick => sub { | 28 | $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 | 29 | ||
34 | $w->show_all; | 30 | $w->show_all; |
35 | 31 | ||
36 | Gtk2->main; | 32 | Gtk2->main; |
37 | 33 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |