diff options
Diffstat (limited to 'win')
| -rw-r--r-- | win/tkWinDialog.c | 4 | ||||
| -rw-r--r-- | win/tkWinMenu.c | 2 | ||||
| -rw-r--r-- | win/tkWinSend.c | 8 |
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; } |