Francois Gouget : testbot/SetWinLocale: Also show the user's languages list.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: f15ba53e06994c1e2a4c305238bc713157bef919
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=f15ba53e06994c1e2a4c3052...

Author: Francois Gouget 
Date:   Wed Jan  5 16:39:15 2022 +0100

testbot/SetWinLocale: Also show the user's languages list.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/bin/SetWinLocale | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/testbot/bin/SetWinLocale b/testbot/bin/SetWinLocale
index e611966..f1d1336 100755
--- a/testbot/bin/SetWinLocale
+++ b/testbot/bin/SetWinLocale
@@ -551,7 +551,9 @@ sub GetWinSettings($)
   }
   if (($OptKeyboard || $OptDefault) or $All)
   {
-    $Settings->{InputMethod} = RegGetValue($HKCU_USER_PROFILE, "InputMethodOverride");
+    my $Values = RegGetValues($HKCU_USER_PROFILE, "*");
+    $Settings->{InputMethod} = $Values->{InputMethodOverride};
+    $Settings->{Languages} = $Values->{Languages};
   }
   if ($OptMUI or $All)
   {
@@ -582,6 +584,7 @@ sub ShowWinSettings($)
   print "Geo:Nation       (--country) = ", Value2Str($Settings->{Country}), "\n";
   print "Geo:Name         (--country) = ", Value2Str($Settings->{CountryName}), "\n";
   print "InputMethod     (--keyboard) = ", Value2Str($Settings->{InputMethod}), "\n";
+  print "Languages                    = ", Value2Str($Settings->{Languages}), "\n";
   print "PreferredUILanguages (--mui) = ", Value2Str($Settings->{PreferredUILanguages}), "\n";
   print "          ...Pending (--mui) = ", Value2Str($Settings->{PreferredUILanguagesPending}), "\n";
   print "         Previous... (--mui) = ", Value2Str($Settings->{PreviousPreferredUILanguages}), "\n";