ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CV/bin/cv
(Generate patch)

Comparing CV/bin/cv (file contents):
Revision 1.2 by root, Mon Nov 3 00:04:22 2003 UTC vs.
Revision 1.3 by root, Mon Nov 3 01:30:58 2003 UTC

… …
93 } 93 }
94} 94}
95 95
96package main; 96package main;
97 97
98sub std_keys {
99 my $key = $_[1]->keyval;
100 warn $key;
101
102 if ($key == $Gtk2::Gdk::Keysyms{q}) {
103 main_quit Gtk2;
104 } else {
105 return 0;
106 }
107
108 1;
109}
110
98sub new_schnauzer { 111sub new_schnauzer {
99 my $w = new Gtk2::Window; 112 my $w = new Gtk2::Window;
100 $w->add (my $s = new Gtk2::CV::Schnauzer); 113 $w->add (my $s = new Gtk2::CV::Schnauzer);
101 114
102 $s->signal_connect (activate => sub { 115 $s->signal_connect (activate => sub {
… …
107 120
108 $w; 121 $w;
109} 122}
110 123
111$viewer = new Gtk2::CV::ImageWindow; 124$viewer = new Gtk2::CV::ImageWindow;
125
126$viewer->signal_connect (key_press_event => \&std_keys);
112 127
113$viewer->show_all; 128$viewer->show_all;
114 129
115my $cluster = new cluster; 130my $cluster = new cluster;
116 131

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines