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