From 32f73df73b3aa97159d5f2b197707263f34d6b3c Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Tue, 9 Mar 2004 15:28:26 +0000
Subject: Made more clear choices in the first-time dialog of printerdrake.

---
 perl-install/printer/printerdrake.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'perl-install/printer/printerdrake.pm')

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 {
-- 
cgit v1.2.1