summaryrefslogtreecommitdiffstats
path: root/win/winMain.c
diff options
context:
space:
mode:
Diffstat (limited to 'win/winMain.c')
-rw-r--r--win/winMain.c10
1 files changed, 3 insertions, 7 deletions
diff --git a/win/winMain.c b/win/winMain.c
index 522d496..c679d81 100644
--- a/win/winMain.c
+++ b/win/winMain.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: winMain.c,v 1.38 2010/11/18 15:54:20 nijtmans Exp $
+ * RCS: @(#) $Id: winMain.c,v 1.39 2010/11/24 10:34:18 nijtmans Exp $
*/
#include "tk.h"
@@ -35,13 +35,13 @@ extern Tcl_PackageInitProc Dde_SafeInit;
#ifdef TCL_BROKEN_MAINARGS
static void setargv(int *argcPtr, TCHAR ***argvPtr);
#endif
+extern void TkpDisplayWarning(const char *, const char *);
/*
* Forward declarations for procedures defined later in this file:
*/
static void WishPanic(const char *format, ...);
-
static BOOL consoleRequired = TRUE;
/*
@@ -277,15 +277,11 @@ WishPanic(
{
va_list argList;
char buf[1024];
- Tcl_DString ds;
MessageBeep(MB_ICONEXCLAMATION);
va_start(argList, format);
vsprintf(buf, format, argList);
- Tcl_WinUtfToTChar(buf, -1, &ds);
- MessageBox(NULL, (TCHAR *)Tcl_DStringValue(&ds), TEXT("Error in Wish"),
- MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
- Tcl_DStringFree(&ds);
+ TkpDisplayWarning(buf, "Error in Wish");
#ifdef _MSC_VER
DebugBreak();
#endif