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 | bfe8b898cef5dee7be36a12e1125f870a70805fb (patch) | |
| tree | 8a7d786d0d74b6c9f6cac378c84945fc0e9596bb /win/tkWinDialog.c | |
| parent | 959d3f8c10cb4427661409386cb2ff80fc168f4b (diff) | |
| download | tk-bfe8b898cef5dee7be36a12e1125f870a70805fb.zip tk-bfe8b898cef5dee7be36a12e1125f870a70805fb.tar.gz tk-bfe8b898cef5dee7be36a12e1125f870a70805fb.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; } /* |