From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Mon, 6 Dec 2010 22:03:23 +0000 (+0100)
Subject: Delete event.
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?p=slotcarman.git;a=commitdiff_plain;h=5b79d179640c5bd695557505853f55fd1a035aa4

Delete event.
---

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 {