summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-12 01:15:13 +0000
committerdamien <damien@mandriva.com>2001-03-12 01:15:13 +0000
commit386318f9c15d842e2289773e8fb11f884da27a12 (patch)
tree32301343e05c58b81577fbb118360536bfd27b73 /perl-install/interactive.pm
parenteac8d5be5c38baaa93cd4858c6a6eac6a42f596b (diff)
downloaddrakx-backup-do-not-use-386318f9c15d842e2289773e8fb11f884da27a12.tar
drakx-backup-do-not-use-386318f9c15d842e2289773e8fb11f884da27a12.tar.gz
drakx-backup-do-not-use-386318f9c15d842e2289773e8fb11f884da27a12.tar.bz2
drakx-backup-do-not-use-386318f9c15d842e2289773e8fb11f884da27a12.tar.xz
drakx-backup-do-not-use-386318f9c15d842e2289773e8fb11f884da27a12.zip
corrected bad okcanel in wizard mode
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index ea1945269..00d450369 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -100,7 +100,8 @@ sub ask_okcancel {
my ($o, $title, $message, $def, $help) = @_;
if ($::isWizard) {
- $o->ask_from_entries_refH({ title => $title, messages => $message, focus_cancel => !$def });
+ $::no_separator = 1;
+ $o->ask_from_entries_refH_powered_no_check({ title => $title, messages => $message, focus_cancel => !$def });
} else {
ask_from_list_($o, $title, $message, [ __("Ok"), __("Cancel") ], $def ? "Ok" : "Cancel", $help) eq "Ok";
}