summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorandreask <andreask>2012-08-30 17:54:43 (GMT)
committerandreask <andreask>2012-08-30 17:54:43 (GMT)
commitef16e014904e7f57528c142a49cbadcadabeb062 (patch)
tree90159d08145fe78d12c35e77c7e41ddad1438e47 /win
parent325d621602bb21c8eb57bb761ab637fda525fd61 (diff)
downloadtk-ef16e014904e7f57528c142a49cbadcadabeb062.zip
tk-ef16e014904e7f57528c142a49cbadcadabeb062.tar.gz
tk-ef16e014904e7f57528c142a49cbadcadabeb062.tar.bz2
Unbreak windows problems with commit [961ae24a3f] as well.
Diffstat (limited to 'win')
-rw-r--r--win/tkWinDialog.c4
-rw-r--r--win/tkWinMenu.c2
-rw-r--r--win/tkWinSend.c8
3 files changed, 7 insertions, 7 deletions
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c
index c64df72..9263830 100644
--- a/win/tkWinDialog.c
+++ b/win/tkWinDialog.c
@@ -1604,8 +1604,8 @@ ChooseDirectoryValidateProc(
* User HAS to select a valid directory.
*/
- wsprintf(selDir, TEXT("Directory '%s' does not exist,\n"
- "please select or enter an existing directory."),
+ wsprintf(selDir, TEXT("Directory '%s' does not exist,\n")
+ TEXT("please select or enter an existing directory."),
chooseDirSharedData->retDir);
MessageBox(NULL, selDir, NULL, MB_ICONEXCLAMATION|MB_OK);
chooseDirSharedData->retDir[0] = '\0';
diff --git a/win/tkWinMenu.c b/win/tkWinMenu.c
index 0955de1..26f08f4 100644
--- a/win/tkWinMenu.c
+++ b/win/tkWinMenu.c
@@ -335,7 +335,7 @@ TkpNewMenu(
if (winMenuHdl == NULL) {
Tcl_SetObjResult(menuPtr->interp, Tcl_NewStringObj(
"No more menus can be allocated.", -1));
- Tcl_SetErrorCode(interp, "TK", "MENU", "SYSTEM_RESOURCES", NULL);
+ Tcl_SetErrorCode(menuPtr->interp, "TK", "MENU", "SYSTEM_RESOURCES", NULL);
return TCL_ERROR;
}
diff --git a/win/tkWinSend.c b/win/tkWinSend.c
index a40c238..43cb741 100644
--- a/win/tkWinSend.c
+++ b/win/tkWinSend.c
@@ -1,4 +1,4 @@
-`/*
+/*
* tkWinSend.c --
*
* This file provides functions that implement the "send" command,
@@ -147,7 +147,7 @@ Tk_SetAppName(
if (FAILED(hr)) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"failed to initialize the COM library", -1));
- Tcl_SetErrorcode(interp, "TK", "SEND", "COM", NULL);
+ Tcl_SetErrorCode(interp, "TK", "SEND", "COM", NULL);
return "";
}
tsdPtr->initialized = 1;
@@ -365,7 +365,7 @@ Tk_SendObjCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"option not implemented: \"displayof\" is not available"
" for this platform.", -1));
- Tcl_SetErrorcode(interp, "TK", "SEND", "DISPLAYOF_WIN", NULL);
+ Tcl_SetErrorCode(interp, "TK", "SEND", "DISPLAYOF_WIN", NULL);
result = TCL_ERROR;
}
@@ -439,7 +439,7 @@ FindInterpreterObject(
} else {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"no application named \"%s\"", name));
- Tcl_SetErrorcode(interp, "TK", "LOOKUP", "APPLICATION",
+ Tcl_SetErrorCode(interp, "TK", "LOOKUP", "APPLICATION",
NULL);
result = TCL_ERROR;
}