From 5b79d179640c5bd695557505853f55fd1a035aa4 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" 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.5