… | |
… | |
39 | } |
39 | } |
40 | |
40 | |
41 | $viewer = new Gtk2::CV::ImageWindow; |
41 | $viewer = new Gtk2::CV::ImageWindow; |
42 | $viewer->signal_connect (key_press_event => \&std_keys); |
42 | $viewer->signal_connect (key_press_event => \&std_keys); |
43 | $viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); |
43 | $viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); |
|
|
44 | |
|
|
45 | $viewer->set_title ("CV"); |
44 | |
46 | |
45 | $schnauzer = new_schnauzer; |
47 | $schnauzer = new_schnauzer; |
46 | |
48 | |
47 | my $mainwin = $schnauzer->get_toplevel; |
49 | my $mainwin = $schnauzer->get_toplevel; |
48 | |
50 | |