summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-12-28 02:14:41 (GMT)
committerhobbs <hobbs>2001-12-28 02:14:41 (GMT)
commit6128891597110248fe8022888de17b95e3f5a38e (patch)
treea96d5ea0f37b3ce191d5d170fb8c3bdeb3743f1b /win
parent9bfff117af205f7600da2c27660086789243fa14 (diff)
downloadtk-6128891597110248fe8022888de17b95e3f5a38e.zip
tk-6128891597110248fe8022888de17b95e3f5a38e.tar.gz
tk-6128891597110248fe8022888de17b95e3f5a38e.tar.bz2
* win/tkWinInit.c (TkpDisplayWarning): Use MessageBoxW in case the
error displayed has unicode chars. [Bug #485986]
Diffstat (limited to 'win')
-rw-r--r--win/tkWinInit.c11
1 files changed, 9 insertions, 2 deletions
diff --git a/win/tkWinInit.c b/win/tkWinInit.c
index 8426551..f071eef 100644
--- a/win/tkWinInit.c
+++ b/win/tkWinInit.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkWinInit.c,v 1.4 2000/03/31 09:24:27 hobbs Exp $
+ * RCS: @(#) $Id: tkWinInit.c,v 1.5 2001/12/28 02:14:41 hobbs Exp $
*/
#include "tkWinInt.h"
@@ -122,6 +122,13 @@ TkpDisplayWarning(msg, title)
char *msg; /* Message to be displayed. */
char *title; /* Title of warning. */
{
- MessageBox(NULL, msg, title, MB_OK | MB_ICONEXCLAMATION | MB_SYSTEMMODAL
+ Tcl_Encoding unicodeEncoding = Tcl_GetEncoding(NULL, "unicode");
+ Tcl_DString msgString, titleString;
+
+ Tcl_UtfToExternalDString(unicodeEncoding, msg, -1, &msgString);
+ Tcl_UtfToExternalDString(unicodeEncoding, title, -1, &titleString);
+ MessageBoxW(NULL, (WCHAR *) Tcl_DStringValue(&msgString),
+ (WCHAR *) Tcl_DStringValue(&titleString),
+ MB_OK | MB_ICONEXCLAMATION | MB_SYSTEMMODAL
| MB_SETFOREGROUND | MB_TOPMOST);
}