summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-30 11:16:01 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-30 11:16:01 +0000
commit3d79e422764401cf0d18a86bdf2679511119cdbc (patch)
treed54b9d808abea542594e7a7b5da7687d27dfa474 /perl-install/interactive.pm
parent0ec07d89144fab40d351a24dca0645eca179ce29 (diff)
downloaddrakx-3d79e422764401cf0d18a86bdf2679511119cdbc.tar
drakx-3d79e422764401cf0d18a86bdf2679511119cdbc.tar.gz
drakx-3d79e422764401cf0d18a86bdf2679511119cdbc.tar.bz2
drakx-3d79e422764401cf0d18a86bdf2679511119cdbc.tar.xz
drakx-3d79e422764401cf0d18a86bdf2679511119cdbc.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 977adea5a..65b3c895b 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -19,12 +19,12 @@ sub ask_warn($$$) {
ask_from_list($o, $title, $message, [ _("Ok") ]);
}
sub ask_yesorno($$$) {
- my ($o, $title, $message) = @_;
- ask_from_list_($o, $title, $message, [ __("Yes"), __("No") ]) eq "Yes";
+ my ($o, $title, $message, $def) = @_;
+ ask_from_list_($o, $title, $message, [ __("Yes"), __("No") ], $def ? "No" : "Yes") eq "Yes";
}
sub ask_okcancel($$$) {
- my ($o, $title, $message) = @_;
- ask_from_list_($o, $title, $message, [ __("Ok"), __("Cancel") ]) eq "Ok";
+ my ($o, $title, $message, $def) = @_;
+ ask_from_list_($o, $title, $message, [ __("Ok"), __("Cancel") ], $def ? "Cancel" : "Ok") eq "Ok";
}
sub ask_from_list_($$$$;$) {
my ($o, $title, $message, $l, $def) = @_;