[tools] testbot/SetWinLocale: Also show the user's languages list.
Francois Gouget
fgouget at codeweavers.com
Mon Jan 3 09:10:18 CST 2022
---
testbot/bin/SetWinLocale | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/testbot/bin/SetWinLocale b/testbot/bin/SetWinLocale
index 8360c76840..e8aff6c9d1 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";
--
2.30.2
More information about the wine-devel
mailing list