diff options
author | dgp <dgp@noemail.net> | 2013-03-22 15:11:22 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-03-22 15:11:22 (GMT) |
commit | 6140fdf56bb283f3d3c6e048f751246018b01469 (patch) | |
tree | 398503485909642466d8b09fb3aca93606f46b57 /win/tkWinWm.c | |
parent | 37117ba1534622821d65bac05a671d0cb943d4f1 (diff) | |
parent | 3f3c5ab2f81fc5a887037f6a10e47111000d4430 (diff) | |
download | tk-6140fdf56bb283f3d3c6e048f751246018b01469.zip tk-6140fdf56bb283f3d3c6e048f751246018b01469.tar.gz tk-6140fdf56bb283f3d3c6e048f751246018b01469.tar.bz2 |
merge trunk
FossilOrigin-Name: cec802424a5f1b267a9576e66733d3498fa270b2
Diffstat (limited to 'win/tkWinWm.c')
-rw-r--r-- | win/tkWinWm.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c index e3816ca..9ea4957 100644 --- a/win/tkWinWm.c +++ b/win/tkWinWm.c @@ -5309,11 +5309,6 @@ WmStateCmd( return TCL_ERROR; } - if (Tcl_GetIndexFromObj(interp, objv[3], optionStrings, "argument", 0, - &index) != TCL_OK) { - return TCL_ERROR; - } - if (winPtr->flags & TK_EMBEDDED) { int state = 0; @@ -6590,7 +6585,7 @@ TkWmProtocolEventProc( Tcl_Preserve((ClientData) protPtr); interp = protPtr->interp; Tcl_Preserve((ClientData) interp); - result = Tcl_GlobalEval(interp, protPtr->command); + result = Tcl_EvalEx(interp, protPtr->command, -1, TCL_EVAL_GLOBAL); if (result != TCL_OK) { Tcl_AddErrorInfo(interp, "\n (command for \""); Tcl_AddErrorInfo(interp, name); |