X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FGUI.pm;h=0945af80c0dcae3b86417a14db61408710195848;hb=5b79d179640c5bd695557505853f55fd1a035aa4;hp=0ebc366a2d05d1d405d120ad32decdcc34b76b99;hpb=e848fc236499bece31394c668adbf933b3aadf24;p=slotcarman.git

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 {