From 4dbff8888db28be6144c3fa0ff604b1dfb5bee18 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 27 Feb 2003 17:50:27 +0000
Subject: added cancel button.

---
 perl-install/install_steps_interactive.pm | 15 +++++++++------
 1 file 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};
 
-- 
cgit v1.2.1