diff options
| author | nijtmans <nijtmans> | 2010-12-16 09:03:07 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-12-16 09:03:07 (GMT) |
| commit | 52c6cf3289ecc22d178696fb22b0cff1604a27ce (patch) | |
| tree | 2c24f3fe8bbeaf599d21204d57e0cfb15a6a9f29 /generic | |
| parent | c791bea97a2d2b89b424c01540a8647a9b37d3eb (diff) | |
| download | tk-52c6cf3289ecc22d178696fb22b0cff1604a27ce.zip tk-52c6cf3289ecc22d178696fb22b0cff1604a27ce.tar.gz tk-52c6cf3289ecc22d178696fb22b0cff1604a27ce.tar.bz2 | |
[Patch 3124554]: Move WishPanic from Tk to Tcl
Remove special MessageBox'es here, since every panic-related thing is now handled correctly by Tcl
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tk.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tk.h b/generic/tk.h index f4c3cdb..cb77f86 100644 --- a/generic/tk.h +++ b/generic/tk.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tk.h,v 1.137 2010/08/19 05:23:12 nijtmans Exp $ + * RCS: @(#) $Id: tk.h,v 1.138 2010/12/16 09:03:07 nijtmans Exp $ */ #ifndef _TK @@ -1473,9 +1473,13 @@ typedef struct Tk_ElementSpec { #define Tk_Release Tcl_Release /* Removed Tk_Main, use macro instead */ +#ifdef _WIN32 +#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ + (Tcl_FindExecutable(0), (Tcl_CreateInterp)())) +#else #define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \ (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) - +#endif const char * Tk_InitStubs(Tcl_Interp *interp, const char *version, int exact); EXTERN const char * Tk_PkgInitStubsCheck(Tcl_Interp *interp, |