--- CV/bin/cv	2003/11/03 00:04:22	1.2
+++ CV/bin/cv	2003/11/03 01:30:58	1.3
@@ -95,6 +95,19 @@
 
 package main;
 
+sub std_keys {
+   my $key = $_[1]->keyval;
+      warn $key;
+
+   if ($key == $Gtk2::Gdk::Keysyms{q}) {
+      main_quit Gtk2;
+   } else {
+      return 0;
+   }
+
+   1;
+}
+
 sub new_schnauzer {
    my $w = new Gtk2::Window;
    $w->add (my $s = new Gtk2::CV::Schnauzer);
@@ -110,6 +123,8 @@
 
 $viewer = new Gtk2::CV::ImageWindow;
 
+$viewer->signal_connect (key_press_event => \&std_keys);
+
 $viewer->show_all;
 
 my $cluster = new cluster;