From 76c708d7ad362aaaea3416936119510c156135b2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 22 Aug 2002 16:56:24 +0000 Subject: - do not display "Test" button when bad card and during install (instead of disabling it) - after install, always display "Test" button but warn strongly not to test --- perl-install/Xconfig/test.pm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'perl-install/Xconfig/test.pm') diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm index 04074f042..0648a28b1 100644 --- a/perl-install/Xconfig/test.pm +++ b/perl-install/Xconfig/test.pm @@ -20,11 +20,17 @@ sub xtest { } sub test { - my ($in, $raw_X, $card, $auto) = @_; + my ($in, $raw_X, $card, $auto, $skip_badcard) = @_; - Xconfig::card::check_bad_card($card) or return 1; - $in->ask_yesorno(_("Test of the configuration"), _("Do you want to test the configuration?"), 1) or return 1 if !$auto; + my $bad_card = !Xconfig::card::check_bad_card($card); + return 1 if $skip_badcard && $bad_card; + if ($bad_card || !$auto) { + my $msg = + $in->ask_yesorno(_("Test of the configuration"), + _("Do you want to test the configuration?") . ($bad_card ? "\n" . _("Warning: testing this graphic card may freeze your computer") : ''), + !$bad_card) or return 1; + } unlink "$::prefix/tmp/.X9-lock"; -- cgit v1.2.1