diff options
author | Till Kamppeter <tkamppeter@mandriva.com> | 2004-03-09 15:28:26 +0000 |
---|---|---|
committer | Till Kamppeter <tkamppeter@mandriva.com> | 2004-03-09 15:28:26 +0000 |
commit | 32f73df73b3aa97159d5f2b197707263f34d6b3c (patch) | |
tree | 4a0a8941d5051b560b9dc35675953c7b9d90fe26 /perl-install | |
parent | d5905f762ece1a9966c6b3493af2f49fbe9224e5 (diff) | |
download | drakx-32f73df73b3aa97159d5f2b197707263f34d6b3c.tar drakx-32f73df73b3aa97159d5f2b197707263f34d6b3c.tar.gz drakx-32f73df73b3aa97159d5f2b197707263f34d6b3c.tar.bz2 drakx-32f73df73b3aa97159d5f2b197707263f34d6b3c.tar.xz drakx-32f73df73b3aa97159d5f2b197707263f34d6b3c.zip |
Made more clear choices in the first-time dialog of printerdrake.
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/printer/printerdrake.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index d1944400d..a52683b30 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -603,7 +603,13 @@ sub first_time_dialog { undef $w; # Show dialog - return $in->ask_yesorno(N("Printerdrake"), $dialogtext, 0); + + my $do_it = N("Yes"); + my $quit = N("Quit"); + my @choices = ($do_it, $quit); + my $choice = $in->ask_from_list(N("Printerdrake"), $dialogtext, + \@choices, $quit); + return ($choice eq $do_it); } sub configure_new_printers { |