diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-02-27 17:50:27 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-02-27 17:50:27 +0000 |
| commit | 4dbff8888db28be6144c3fa0ff604b1dfb5bee18 (patch) | |
| tree | 4daac03b4b1ed24db00fa84fa69456fa04cad145 /perl-install | |
| parent | 9651dfbe8e5ce28d315735c9ff977db0ed67a56c (diff) | |
| download | drakx-4dbff8888db28be6144c3fa0ff604b1dfb5bee18.tar drakx-4dbff8888db28be6144c3fa0ff604b1dfb5bee18.tar.gz drakx-4dbff8888db28be6144c3fa0ff604b1dfb5bee18.tar.bz2 drakx-4dbff8888db28be6144c3fa0ff604b1dfb5bee18.tar.xz drakx-4dbff8888db28be6144c3fa0ff604b1dfb5bee18.zip | |
added cancel button.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index c3a3cd571..cd471f603 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -765,12 +765,15 @@ Do you want to install the updates ?")), crypto::mirrors() }; #- if no mirror have been found, use current time zone and propose among available. $u->{mirror} ||= crypto::bestMirror($o->{timezone}{timezone}); - $u->{mirror} = $o->ask_from_treelistf('', - N("Choose a mirror from which to get the packages"), - '|', - \&crypto::mirror2text, - \@mirrors, - $u->{mirror}); + $o->ask_from_({ messages => N("Choose a mirror from which to get the packages"), + cancel => N("Cancel"), + }, [ { separator => '|', + format => \&crypto::mirror2text, + list => \@mirrors, + val => \$u->{mirror}, + }, + ], + ) or $u->{mirror} = ''; }; return if $@ || !$u->{mirror}; |