292 |
name = p; |
name = p; |
293 |
} |
} |
294 |
} |
} |
295 |
|
#ifndef __MINGW32__ |
296 |
/* |
/* |
297 |
* If a display was specified, put it into the DISPLAY |
* If a display was specified, put it into the DISPLAY |
298 |
* environment variable so that it will be available for |
* environment variable so that it will be available for |
302 |
if (display != NULL) { |
if (display != NULL) { |
303 |
Tcl_SetVar2(interp, "env", "DISPLAY", display, TCL_GLOBAL_ONLY); |
Tcl_SetVar2(interp, "env", "DISPLAY", display, TCL_GLOBAL_ONLY); |
304 |
} |
} |
305 |
|
#endif |
306 |
/* |
/* |
307 |
* Initialize the Tk application. |
* Initialize the Tk application. |
308 |
*/ |
*/ |
358 |
/* |
/* |
359 |
* Invoke application-specific initialization. |
* Invoke application-specific initialization. |
360 |
*/ |
*/ |
361 |
|
#ifdef _WIN32 |
362 |
|
Tcl_FindExecutable ( argv[0] ); |
363 |
|
#else |
364 |
if (Tcl_AppInit(interp) != TCL_OK) { |
if (Tcl_AppInit(interp) != TCL_OK) { |
365 |
fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result); |
fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result); |
366 |
} |
} |
367 |
|
#endif |
368 |
/* |
/* |
369 |
* Set the geometry of the main window, if requested. |
* Set the geometry of the main window, if requested. |
370 |
*/ |
*/ |