diff options
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | win/tkWinDialog.c | 4 | ||||
| -rw-r--r-- | win/tkWinMenu.c | 2 | ||||
| -rw-r--r-- | win/tkWinSend.c | 8 |
4 files changed, 10 insertions, 7 deletions
@@ -2,6 +2,9 @@ * generic/tkCanvWind.c (CanvasPsWindow): Unbreak AIX, replaced use of C99 comments in commit [961ae24a3f] (2012-08-27) with C89-style. + * win/tkWinDialog.c: Unbreak windows problems with commit [961ae24a3f] + * win/tkWinMenu.c: as well. + * win/tkWinSend.c: 2012-08-28 Jan Nijtmans <nijtmans@users.sf.net> 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; } |