Make the keypress event actually exit.
authorAndrew Ruthven <andrew@etc.gen.nz>
Sat, 20 Sep 2008 10:22:56 +0000 (22:22 +1200)
committerAndrew Ruthven <andrew@etc.gen.nz>
Sat, 20 Sep 2008 10:22:56 +0000 (22:22 +1200)
picture.pl

index a51ba80..a8a783b 100755 (executable)
@@ -31,7 +31,7 @@ sub start {
 
   my $stage = Clutter::Stage->get_default();
   $stage->set_color(Clutter::Color->parse('Black'));
-  $stage->signal_connect('key-press-event' => sub { Clutter->main_quit() });
+  $stage->signal_connect('key-press-event' => sub { exit; });
 
   if ($full_screen) {
     $stage->fullscreen;