diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-15 10:20:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-15 10:20:06 (GMT) |
| commit | fe5133500ae8f53c73abe7ead918f29100cb9aca (patch) | |
| tree | 8a7d786d0d74b6c9f6cac378c84945fc0e9596bb /win/tkWinDialog.c | |
| parent | 7e1ff1a8b0db25d1ef6c529e0e62f93abf57a88f (diff) | |
| download | tk-fe5133500ae8f53c73abe7ead918f29100cb9aca.zip tk-fe5133500ae8f53c73abe7ead918f29100cb9aca.tar.gz tk-fe5133500ae8f53c73abe7ead918f29100cb9aca.tar.bz2 | |
Eliminate use of Tcl_SetResult(), and CONST -> const
Diffstat (limited to 'win/tkWinDialog.c')
| -rw-r--r-- | win/tkWinDialog.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c index d7f63fb..f763a7b 100644 --- a/win/tkWinDialog.c +++ b/win/tkWinDialog.c @@ -1113,7 +1113,7 @@ ParseOFNOptions( if (strcmp(Tcl_GetString(objv[i]), "-xpstyle")) goto error_return; if (i + 1 == objc) { - Tcl_SetResult(interp, "value for \"-xpstyle\" missing", TCL_STATIC); + Tcl_SetObjResult(interp, Tcl_NewStringObj("value for \"-xpstyle\" missing", -1)); Tcl_SetErrorCode(interp, "TK", "FILEDIALOG", "VALUE", NULL); goto error_return; } @@ -1281,9 +1281,8 @@ static int GetFileNameVista(Tcl_Interp *interp, OFNOpts *optsPtr, int oldMode; if (tsdPtr->newFileDialogsState != FDLG_STATE_USE_NEW) { - /* XXX - should be an assert but Tcl does not seem to have one? */ - Tcl_SetResult(interp, "Internal error: GetFileNameVista: IFileDialog API not available", TCL_STATIC); - return TCL_ERROR; + Tcl_Panic("Internal error: GetFileNameVista: IFileDialog API not available"); + return TCL_ERROR; } /* |