diff options
Diffstat (limited to 'mac/tkMacAppInit.c')
| -rw-r--r-- | mac/tkMacAppInit.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mac/tkMacAppInit.c b/mac/tkMacAppInit.c index abbe279..15dfd1a 100644 --- a/mac/tkMacAppInit.c +++ b/mac/tkMacAppInit.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: tkMacAppInit.c,v 1.15 2002/10/18 03:01:33 das Exp $ + * RCS: @(#) $Id: tkMacAppInit.c,v 1.16 2004/01/13 02:06:01 davygrvy Exp $ */ #include <Gestalt.h> @@ -246,7 +246,7 @@ MacintoshInit() NGetTrapAddress(_Unimplemented, ToolTrap)) || (((Gestalt(gestaltSystemVersion, &result) != noErr) || (result < mask)))) { - panic("Tcl/Tk requires System 7 or higher."); + Tcl_Panic("Tcl/Tk requires System 7 or higher."); } /* @@ -256,7 +256,7 @@ MacintoshInit() if (((Gestalt(gestaltQuickdrawVersion, &result) != noErr) || (result < gestalt32BitQD13))) { - panic("Tk requires Color QuickDraw."); + Tcl_Panic("Tk requires Color QuickDraw."); } @@ -317,7 +317,7 @@ SetupMainInterp( return TCL_OK; error: - panic(Tcl_GetStringResult(interp)); + Tcl_Panic(Tcl_GetStringResult(interp)); return TCL_ERROR; } |