From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Sat, 20 Sep 2008 10:22:56 +0000 (+1200)
Subject: Make the keypress event actually exit.
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ece90cba20947252dfb27630446d8fd2337e4586;p=picture-display.git

Make the keypress event actually exit.
---

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;