| … | |
… | |
| 101 | my $w = new Gtk2::Window; |
101 | my $w = new Gtk2::Window; |
| 102 | $w->add (my $s = new Gtk2::CV::Schnauzer); |
102 | $w->add (my $s = new Gtk2::CV::Schnauzer); |
| 103 | |
103 | |
| 104 | $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) }); |
104 | $s->signal_connect (activate => sub { $viewer->load_image ($_[1]) }); |
| 105 | $s->signal_connect (key_press_event => \&std_keys); |
105 | $s->signal_connect (key_press_event => \&std_keys); |
| 106 | $w->signal_connect (delete_event => sub { $_[0]->destroy }); |
|
|
| 107 | |
106 | |
| 108 | $s->set_dir ("."); |
107 | $s->set_dir ("."); |
| 109 | $w->show_all; |
108 | $w->show_all; |
| 110 | |
109 | |
| 111 | $w; |
110 | $w; |
