From a1d6de5664c04377b804aeac7d72a2e571ff1183 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 13 Aug 2004 05:57:34 +0000
Subject: ctrl-alt-delete allows to restart install

---
 perl-install/ugtk2.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 7e6468778..dd50615f5 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -976,10 +976,13 @@ sub new {
 	    if ($::isInstall) {
 		$::WizardWindow->signal_connect(key_press_event => sub {
 		    my (undef, $event) = @_;
-		    my $d = ${{ $Gtk2::Gdk::Keysyms{F2} => 'screenshot' }}{$event->keyval};
+		    my $d = ${{ $Gtk2::Gdk::Keysyms{F2} => 'screenshot', $Gtk2::Gdk::Keysyms{Delete} => 'restart' }}{$event->keyval};
 		    if ($d eq 'screenshot') {
 			common::take_screenshot();
-		    }
+		    } elsif ($d eq 'restart' && $event->state >= ['control-mask', 'mod1-mask']) {
+			log::l("restarting install");
+                        $o->exit(0x35);
+ 		    }
 		    0;
 		});
 	    } elsif (!$o->{isEmbedded}) {
-- 
cgit v1.2.1