summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-02-27 17:50:27 +0000
committerFrancois Pons <fpons@mandriva.com>2003-02-27 17:50:27 +0000
commit4dbff8888db28be6144c3fa0ff604b1dfb5bee18 (patch)
tree4daac03b4b1ed24db00fa84fa69456fa04cad145 /perl-install
parent9651dfbe8e5ce28d315735c9ff977db0ed67a56c (diff)
downloaddrakx-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.pm15
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};