From 809c54247c83e26ebcf69f158a430de2700374b1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 10 Jan 2001 14:01:45 +0000
Subject: (selectLanguage): many_languages choice moved there as advanced

---
 perl-install/install_steps_interactive.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 4ca51cb53..c60fa9252 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -50,21 +50,21 @@ sub kill_action {
 sub selectLanguage($) {
     my ($o) = @_;
 
-    $o->ask_from_entries_refH(
+    $o->ask_from_entries_refH_powered(
 	{ messages => _("Please, choose a language to use."),
 	  advanced_messages => _("You can choose other languages that will be available after install"),
 	  callbacks => {
-	      changed => sub { $o->{langs}{$o->{lang}} = 1 },
+	      focus_out => sub { $o->{langs}{$o->{lang}} = 1 },
 	  },
 	},
 	[ { val => \$o->{lang}, type => 'list', 
 	    format => \&lang::lang2text, list => [ lang::list() ] },
 	  (map {;
-	       { val => \$o->{langs}{$_}, type => 'bool', disabled => sub { $o->{langs}{all} },
-		 text => lang::lang2text($_)
+	       { val => \$o->{langs}{$_->[0]}, type => 'bool', disabled => sub { $o->{langs}{all} },
+		 text => $_->[1], advanced => 1,
 	       } 
-	   } lang::list()),
-	  { val => \$o->{langs}{all}, type => 'bool', text => _("All") }
+	   } sort { $a->[1] cmp $b->[1] } map { [ $_, lang::lang2text($_) ] } lang::list()),
+	  { val => \$o->{langs}{all}, type => 'bool', text => _("All"), advanced => 1 }
 	]);
 
     install_steps::selectLanguage($o);
-- 
cgit v1.2.1