| … | |
… | |
| 89 | $h->load_string (do { local $/; <DATA> }); |
89 | $h->load_string (do { local $/; <DATA> }); |
| 90 | } |
90 | } |
| 91 | |
91 | |
| 92 | $help->show_all; |
92 | $help->show_all; |
| 93 | } else { |
93 | } else { |
| 94 | #$mainwin->show_all; |
94 | return 0; |
| 95 | return $schnauzer->signal_emit (key_press_event => $_[1]); |
|
|
| 96 | } |
95 | } |
| 97 | |
96 | |
| 98 | 1; |
97 | 1 |
| 99 | } |
98 | } |
| 100 | |
99 | |
| 101 | { |
100 | { |
| 102 | $viewer = new Gtk2::CV::ImageWindow; |
101 | $viewer = new Gtk2::CV::ImageWindow; |
| 103 | |
102 | |
| 104 | $viewer->set_title ("CV: Image"); |
103 | $viewer->set_title ("CV: Image"); |
| 105 | |
104 | |
| 106 | $viewer->signal_connect (key_press_event => \&std_keys); |
105 | $viewer->signal_connect (key_press_event => sub { |
|
|
106 | &std_keys |
|
|
107 | or $schnauzer->signal_emit (key_press_event => $_[1]) |
|
|
108 | }); |
| 107 | $viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); |
109 | $viewer->signal_connect (delete_event => sub { main_quit Gtk2 }); |
| 108 | |
110 | |
| 109 | $viewer->signal_connect (button3_press_event => sub { |
111 | $viewer->signal_connect (button3_press_event => sub { |
| 110 | $mainwin->visible |
112 | $mainwin->visible |
| 111 | ? $mainwin->hide |
113 | ? $mainwin->hide |
