From a0aea84bcfa5f2c75e799cbd2b9c3a4511865feb Mon Sep 17 00:00:00 2001 From: hobbs Date: Wed, 3 Nov 1999 00:43:09 +0000 Subject: * win/winMain.c: changed Tcl_AppInit to not cause a DebugBreak on simple startup errors (like bad options to wish) --- win/winMain.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/win/winMain.c b/win/winMain.c index 54cda5f..5d26994 100644 --- a/win/winMain.c +++ b/win/winMain.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: winMain.c,v 1.7 1999/04/28 18:18:07 redman Exp $ + * RCS: @(#) $Id: winMain.c,v 1.7.6.1 1999/11/03 00:43:09 hobbs Exp $ */ #include @@ -171,7 +171,11 @@ Tcl_AppInit(interp) return TCL_OK; error: - WishPanic(Tcl_GetStringResult(interp)); + MessageBeep(MB_ICONEXCLAMATION); + MessageBox(NULL, Tcl_GetStringResult(interp), "Error in Wish", + MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND); + ExitProcess(1); + /* we won't reach this, but we need the return */ return TCL_ERROR; } @@ -209,6 +213,7 @@ WishPanic TCL_VARARGS_DEF(char *,arg1) #endif ExitProcess(1); } + /* *------------------------------------------------------------------------- * @@ -325,7 +330,6 @@ setargv(argcPtr, argvPtr) *argcPtr = argc; *argvPtr = argv; } - /* *---------------------------------------------------------------------- -- cgit v0.12