From 951e01d3eae848c5c963f0e91a100d5c61c8867e Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 5 Apr 2006 20:58:09 +0000
Subject: 	* win/tkWinX.c (TkWinXInit): init default keyboard charset 
 correctly. [Bug 1374119] (pajas)

---
 win/tkWinX.c | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/win/tkWinX.c b/win/tkWinX.c
index ce2230e..3a38aab 100644
--- a/win/tkWinX.c
+++ b/win/tkWinX.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkWinX.c,v 1.52 2005/12/02 13:42:29 dkf Exp $
+ * RCS: @(#) $Id: tkWinX.c,v 1.53 2006/04/05 20:58:09 hobbs Exp $
  */
 
 /*
@@ -245,6 +245,8 @@ TkWinXInit(
     HINSTANCE hInstance)
 {
     INITCOMMONCONTROLSEX comctl;
+    CHARSETINFO lpCs;
+    DWORD lpCP;
 
     if (childClassInitialized != 0) {
 	return;
@@ -298,6 +300,17 @@ TkWinXInit(
     }
 
     /*
+     * Initialize input language info
+     */
+
+    if (GetLocaleInfo(LANGIDFROMLCID(GetKeyboardLayout(0)),
+	       LOCALE_IDEFAULTANSICODEPAGE | LOCALE_RETURN_NUMBER,
+	       (LPTSTR) &lpCP, sizeof(lpCP)/sizeof(TCHAR))
+	    && TranslateCharsetInfo((DWORD *)lpCP, &lpCs, TCI_SRCCODEPAGE)) {
+	UpdateInputLanguage(lpCs.ciCharset);
+    }
+
+    /*
      * Make sure we cleanup on finalize.
      */
 
@@ -1386,7 +1399,7 @@ GetTranslatedKey(
  *
  * UpdateInputLanguage --
  *
- *	Gets called when a WM_INPUTLANGCHANGE message is received by the TK
+ *	Gets called when a WM_INPUTLANGCHANGE message is received by the Tk
  *	child window function. This message is sent by the Input Method Editor
  *	system when the user chooses a different input method. All subsequent
  *	WM_CHAR messages will contain characters in the new encoding. We
-- 
cgit v0.12