diff options
| author | das <das@noemail.net> | 2005-01-25 06:54:16 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2005-01-25 06:54:16 (GMT) |
| commit | 47bd4d7f0e635ec6d02af9485a8cee93e5def81f (patch) | |
| tree | 115a1055406214260386854f5102651d208e3553 /macosx/tkMacOSXInit.c | |
| parent | 131ca271c3cace511cec569ef96ed0c6de71c870 (diff) | |
| download | tk-47bd4d7f0e635ec6d02af9485a8cee93e5def81f.zip tk-47bd4d7f0e635ec6d02af9485a8cee93e5def81f.tar.gz tk-47bd4d7f0e635ec6d02af9485a8cee93e5def81f.tar.bz2 | |
* macosx/tkMacOSXInit.c (TkpInit): set tcl_interactive to 1 to show
console at startup instead of directly calling [console show].
* unix/tcl.m4 (Darwin): fixed bug with static build linking to
dynamic library in /usr/lib etc instead of linking to static library
earlier in search path. [Tcl Bug 956908]
Removed obsolete references to Rhapsody.
* unix/configure: autoconf-2.57
FossilOrigin-Name: 299ef497abad4e18b8140c02f79e8f3791e6a7b1
Diffstat (limited to 'macosx/tkMacOSXInit.c')
| -rw-r--r-- | macosx/tkMacOSXInit.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/macosx/tkMacOSXInit.c b/macosx/tkMacOSXInit.c index 07127eb..b7acd4f 100644 --- a/macosx/tkMacOSXInit.c +++ b/macosx/tkMacOSXInit.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacOSXInit.c,v 1.6 2004/11/11 01:24:32 das Exp $ + * RCS: @(#) $Id: tkMacOSXInit.c,v 1.7 2005/01/25 06:54:18 das Exp $ */ #include "tkInt.h" @@ -174,11 +174,12 @@ TkpInit(interp) Tcl_RegisterChannel(interp, Tcl_GetStdChannel(TCL_STDIN)); Tcl_RegisterChannel(interp, Tcl_GetStdChannel(TCL_STDOUT)); Tcl_RegisterChannel(interp, Tcl_GetStdChannel(TCL_STDERR)); - if (Tk_CreateConsoleWindow(interp) == TCL_OK) { - /* Only show the console if we don't have a startup script */ - if (Tcl_GetStartupScript(NULL) == NULL) { - Tcl_Eval(interp, "console show"); - } + /* Only show the console if we don't have a startup script */ + if (Tcl_GetStartupScript(NULL) == NULL) { + Tcl_SetVar(interp, "tcl_interactive", "1", TCL_GLOBAL_ONLY); + } + if (Tk_CreateConsoleWindow(interp) == TCL_ERROR) { + return TCL_ERROR; } } } |