diff options
author | dgp <dgp@users.sourceforge.net> | 2001-08-06 18:29:41 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2001-08-06 18:29:41 (GMT) |
commit | 0ecd54f69712f24aebc4c2f5327731a88b007531 (patch) | |
tree | fa98226795efcc73911ec0bd548c0a6f13abdf8e /generic/tkConsole.c | |
parent | 30e0d397055894b4fa0053664ff28617a243dca3 (diff) | |
download | tk-0ecd54f69712f24aebc4c2f5327731a88b007531.zip tk-0ecd54f69712f24aebc4c2f5327731a88b007531.tar.gz tk-0ecd54f69712f24aebc4c2f5327731a88b007531.tar.bz2 |
* TIP 44 changes specific to the Mac and
Windows platforms that were overlooked before: tkOpenDocument,
tkConsoleExit, tkConsoleOutput, unsupported1 out of namespace :: .
Thanks to Vince Darley for prompting another look.
Diffstat (limited to 'generic/tkConsole.c')
-rw-r--r-- | generic/tkConsole.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tkConsole.c b/generic/tkConsole.c index 3e91f62..bb6bcad 100644 --- a/generic/tkConsole.c +++ b/generic/tkConsole.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: tkConsole.c,v 1.12 2000/07/18 02:31:06 davidg Exp $ + * RCS: @(#) $Id: tkConsole.c,v 1.13 2001/08/06 18:29:41 dgp Exp $ */ #include "tk.h" @@ -708,13 +708,13 @@ ConsoleDeleteProc(clientData) * This event procedure is registered on the main window of the * slave interpreter. If the user or a running script causes the * main window to be destroyed, then we need to inform the console - * interpreter by invoking "tkConsoleExit". + * interpreter by invoking "::tk::ConsoleExit". * * Results: * None. * * Side effects: - * Invokes the "tkConsoleExit" procedure in the console interp. + * Invokes the "::tk::ConsoleExit" procedure in the console interp. * *---------------------------------------------------------------------- */ @@ -745,7 +745,7 @@ ConsoleEventProc(clientData, eventPtr) return; } Tcl_Preserve((ClientData) consoleInterp); - Tcl_DStringAppend(&dString, "tkConsoleExit", -1); + Tcl_DStringAppend(&dString, "::tk::ConsoleExit", -1); Tcl_Eval(consoleInterp, Tcl_DStringValue(&dString)); Tcl_DStringFree(&dString); Tcl_Release((ClientData) consoleInterp); @@ -790,9 +790,9 @@ TkConsolePrint(interp, devId, buffer, size) } if (devId == TCL_STDERR) { - cmd = "tkConsoleOutput stderr "; + cmd = "::tk::ConsoleOutput stderr "; } else { - cmd = "tkConsoleOutput stdout "; + cmd = "::tk::ConsoleOutput stdout "; } result = Tcl_GetCommandInfo(interp, "console", &cmdInfo); |