From 3b50dc3878f716e3a8620ed8dc4beaef00758d8f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 24 Feb 2003 11:48:41 +0000
Subject: allow neuneus to quit install at license step (esp. for Ann & Warly's
 father)

---
 perl-install/install_steps_interactive.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 80384370b..740fd4818 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -82,11 +82,16 @@ sub acceptLicense {
     my $r = 'Refuse';
 
     $o->ask_from_({ title => N("License agreement"), 
+		    cancel => N("Quit"),
 		    messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()), 
 		    interactive_help_id => 'acceptLicense',
 		    callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
 		  },
-		  [ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ]);
+		  [ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ]) 
+      or do {
+	  install_any::ejectCdrom();
+	  $o->exit;
+      };
 }
 
 #------------------------------------------------------------------------------
-- 
cgit v1.2.1