summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-03-28 20:52:35 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-03-28 20:52:35 (GMT)
commite8e7449d29716dbc5b1e6ed25d6af90e04c18249 (patch)
treed3ccf84a64c98b4c1cd9195d3d812ea68e9988e6
parent34916714c2a78b655ee536afe9b482c8161ae0e3 (diff)
downloadtk-initsubsystems2.zip
tk-initsubsystems2.tar.gz
tk-initsubsystems2.tar.bz2
Demonstrate how the Tk_Main() macro can use Tcl_InitSubsystems(), as fully equivalent replacement of Tcl_FindExecutable/Tcl_CreateInterp. (not part of TIP #414)initsubsystems2
-rw-r--r--generic/tk.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tk.h b/generic/tk.h
index aa9cd22..5b79e5a 100644
--- a/generic/tk.h
+++ b/generic/tk.h
@@ -1498,10 +1498,10 @@ typedef struct Tk_ElementSpec {
/* Removed Tk_Main, use macro instead */
#if defined(__WIN32__) || defined(__CYGWIN__)
#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \
- (Tcl_FindExecutable(0), (Tcl_CreateInterp)()))
+ (Tcl_InitSubsystems(TCL_INIT_CREATE, 0, NULL)))
#else
#define Tk_Main(argc, argv, proc) Tk_MainEx(argc, argv, proc, \
- (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)()))
+ (Tcl_InitSubsystems(TCL_INIT_CREATE, 0, argv)))
#endif
const char * Tk_InitStubs(Tcl_Interp *interp, const char *version,
int exact);