From 5b79d179640c5bd695557505853f55fd1a035aa4 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Mon, 6 Dec 2010 23:03:23 +0100
Subject: [PATCH] Delete event.

---
 SCX/GUI.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/SCX/GUI.pm b/SCX/GUI.pm
index 0ebc366..0945af8 100755
--- a/SCX/GUI.pm
+++ b/SCX/GUI.pm
@@ -38,9 +38,12 @@ sub show {
 	my ($self) = @_;
 
 	my $window = $self->{builder}->get_object('slotcarman');
+	$window->signal_connect(delete_event => \&delete_event);
 	$window->show();
 }
 
+sub delete_event { Gtk2->main_quit; }
+
 sub get_object { return shift->{builder}->get_object(@_); }
 
 sub load_image_set {
-- 
2.43.0