diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-03-22 15:11:22 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-03-22 15:11:22 (GMT) |
| commit | 5c69201574c93f7b101b6df1b0991910f64c2b76 (patch) | |
| tree | 18c877766da9c79cffd8c05f4936fd53a1bb46f5 /win/tkWinWm.c | |
| parent | 29be1714a6dbbef4339bb7bdbb8751f49e8dafd6 (diff) | |
| parent | bf7d92fb1e4658fa162297fe3de4d4046724d166 (diff) | |
| download | tk-5c69201574c93f7b101b6df1b0991910f64c2b76.zip tk-5c69201574c93f7b101b6df1b0991910f64c2b76.tar.gz tk-5c69201574c93f7b101b6df1b0991910f64c2b76.tar.bz2 | |
merge trunk
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); |