summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-08-06 18:29:41 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-08-06 18:29:41 (GMT)
commit0ecd54f69712f24aebc4c2f5327731a88b007531 (patch)
treefa98226795efcc73911ec0bd548c0a6f13abdf8e /generic
parent30e0d397055894b4fa0053664ff28617a243dca3 (diff)
downloadtk-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')
-rw-r--r--generic/tkConsole.c12
-rw-r--r--generic/tkWindow.c5
2 files changed, 9 insertions, 8 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);
diff --git a/generic/tkWindow.c b/generic/tkWindow.c
index 522df47..3c83daa 100644
--- a/generic/tkWindow.c
+++ b/generic/tkWindow.c
@@ -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: tkWindow.c,v 1.31 2001/07/03 05:59:50 hobbs Exp $
+ * RCS: @(#) $Id: tkWindow.c,v 1.32 2001/08/06 18:29:41 dgp Exp $
*/
#include "tkPort.h"
@@ -154,7 +154,8 @@ static TkCmd commands[] = {
*/
#ifdef MAC_TCL
- {"unsupported1", TkUnsupported1Cmd, NULL, 1, 1},
+ {"::tk::unsupported::MacWindowStyle",
+ TkUnsupported1Cmd, NULL, 1, 1},
#endif
{(char *) NULL, (int (*) _ANSI_ARGS_((ClientData, Tcl_Interp *, int, char **))) NULL, NULL, 0}
};