From ece90cba20947252dfb27630446d8fd2337e4586 Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Sat, 20 Sep 2008 22:22:56 +1200
Subject: [PATCH] Make the keypress event actually exit.

---
 picture.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/picture.pl b/picture.pl
index a51ba80..a8a783b 100755
--- a/picture.pl
+++ b/picture.pl
@@ -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;
-- 
2.30.2