From b0c754d1f7614c65cf1d950f4c22056790beb66f Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Tue, 19 Feb 2002 16:52:58 +0000 Subject: Changed button texts of "Do you want to auto-detect?" dialog. --- perl-install/printerdrake.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index e735e3a78..bcb0aa0f0 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -273,10 +273,15 @@ sub setup_local { $do_auto_detect = !$printer->{NOAUTODETECT}; } else { local $::isWizard = 0; - $do_auto_detect = $in->ask_yesorno(_("Auto-Detection of Printers"), - _("Printerdrake is able to auto-detect your locally connected parallel and USB printers for you, but note that on some systems the auto-detection CAN FREEZE YOUR SYSTEM AND THIS CAN LEAD TO CORRUPTED FILE SYSTEMS! So do it ON YOUR OWN RISK! - -Do you really want to get your printers auto-detected?"), 1); + my $res = $in->ask_from_list_ + (_("Auto-Detection of Printers"), + _("Printerdrake is able to auto-detect your locally connected parallel and USB printers for you, but note that on some systems the auto-detection CAN FREEZE YOUR SYSTEM AND THIS CAN LEAD TO CORRUPTED FILE SYSTEMS! So do it ON YOUR OWN RISK! + +Do you really want to get your printers auto-detected?"), + [_("Do auto-detection"), + _("Set up printer manually")], + _("Do auto-detection")); + $do_auto_detect = ($res eq _("Do auto-detection")); } my @parport = (); my $menuentries = {}; -- cgit v1.2.1