From 7d4f7d28353b999a596562262afdb95f400c1a28 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Aug 2002 15:27:02 +0000
Subject: (selectLanguage): fix the ugly use of focus_out for setting langs.
 Was completly rubbish in newt.

---
 perl-install/any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 33e3cb17b..4e27cbaa4 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -843,7 +843,7 @@ sub selectLanguage {
 the languages you would like to install. They will be available
 when your installation is complete and you restart your system.")),
 	  callbacks => {
-	      focus_out => sub { $langs->{$lang} = 1 },
+	      advanced => sub { $langs->{$lang} = 1 },
 	  },
 	},
 	[ { val => \$lang, separator => '|', 
@@ -855,6 +855,7 @@ when your installation is complete and you restart your system.")),
 	   } sort { $a->[1] cmp $b->[1] } map { [ $_, lang::lang2text($_) ] } lang::list()),
 	  { val => \$langs->{all}, type => 'bool', text => _("All"), advanced => 1 }),
 	]) or return;
+    $langs->{$lang} = 1;
     $lang;
 }
 
-- 
cgit v1.2.1