… | |
… | |
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; |