diff options
| author | damien <damien@mandriva.com> | 2001-03-12 01:15:13 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-12 01:15:13 +0000 |
| commit | 386318f9c15d842e2289773e8fb11f884da27a12 (patch) | |
| tree | 32301343e05c58b81577fbb118360536bfd27b73 /perl-install | |
| parent | eac8d5be5c38baaa93cd4858c6a6eac6a42f596b (diff) | |
| download | drakx-386318f9c15d842e2289773e8fb11f884da27a12.tar drakx-386318f9c15d842e2289773e8fb11f884da27a12.tar.gz drakx-386318f9c15d842e2289773e8fb11f884da27a12.tar.bz2 drakx-386318f9c15d842e2289773e8fb11f884da27a12.tar.xz drakx-386318f9c15d842e2289773e8fb11f884da27a12.zip | |
corrected bad okcanel in wizard mode
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive.pm | 3 |
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"; } |