diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-06-14 00:48:50 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-06-14 00:48:50 (GMT) |
| commit | ed0c34adaed8a98ee5dc98e08810561ef81aa41c (patch) | |
| tree | 345285880e9eeb990fb3f35e2a5d7f6474c11340 /mac/tclMacAppInit.c | |
| parent | 618765e259dedad64023f5f750afe080cb50e1c4 (diff) | |
| download | tcl-ed0c34adaed8a98ee5dc98e08810561ef81aa41c.zip tcl-ed0c34adaed8a98ee5dc98e08810561ef81aa41c.tar.gz tcl-ed0c34adaed8a98ee5dc98e08810561ef81aa41c.tar.bz2 | |
* mac/tclMacAppInit.c (main, Macintosh_Init):
* mac/tclMacBOAAppInit.c (main):
* mac/tclMacPanic.c: Applied patches from Dan Steffen correcting
problems on the Macintosh in the 2001-06-08 changes.
Diffstat (limited to 'mac/tclMacAppInit.c')
| -rw-r--r-- | mac/tclMacAppInit.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mac/tclMacAppInit.c b/mac/tclMacAppInit.c index 7eaa6c7..1e83125 100644 --- a/mac/tclMacAppInit.c +++ b/mac/tclMacAppInit.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: tclMacAppInit.c,v 1.6 2001/06/08 20:06:11 dgp Exp $ + * RCS: @(#) $Id: tclMacAppInit.c,v 1.7 2001/06/14 00:48:51 dgp Exp $ */ #include "tcl.h" @@ -64,7 +64,6 @@ main( { char *newArgv[2]; - TclMacSetPanic(); if (MacintoshInit() != TCL_OK) { Tcl_Exit(1); } @@ -206,6 +205,8 @@ MacintoshInit() #endif + TclMacSetPanic(); + Tcl_MacSetEventProc((Tcl_MacConvertEventPtr) SIOUXHandleOneEvent); /* No problems with initialization */ |