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