From cc6361f1fb627a75c5ab4ac7e6523851aed21ba0 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 7 Feb 2002 11:57:53 +0000
Subject: wizard fixes

---
 perl-install/my_gtk.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index f1026f575..39b5b743d 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -51,6 +51,7 @@ sub new {
 	if (!defined($::WizardWindow)) {
 	    $::WizardWindow = new Gtk::Window;
 	    $::WizardWindow->set_position('center_always');
+	    $::WizardWindow->signal_connect(delete_event => sub { die 'wizcancel'});
 	    $::WizardTable = new Gtk::Table(2, 2, 0);
 	    $::WizardWindow->add($::WizardTable);
 	    my $draw1 = new Gtk::DrawingArea;
-- 
cgit v1.2.1