diff options
| author | fvogel <fvogelnew1@free.fr> | 2021-09-06 20:17:35 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2021-09-06 20:17:35 (GMT) |
| commit | cdfe65dd77a69d17c657a3c07104728b08d861a7 (patch) | |
| tree | bd9fad01503d9c89df289a7e628c423d4a3106e3 /unix | |
| parent | f73e9ab00cf90b7708bdf95e64a3272d7744d04a (diff) | |
| download | tk-cdfe65dd77a69d17c657a3c07104728b08d861a7.zip tk-cdfe65dd77a69d17c657a3c07104728b08d861a7.tar.gz tk-cdfe65dd77a69d17c657a3c07104728b08d861a7.tar.bz2 | |
More complete and correct testing of 'wm iconbadge' parameters. Tests pass on x11 at this stage.
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tkUnixWm.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/unix/tkUnixWm.c b/unix/tkUnixWm.c index 961944b..8e9d816 100644 --- a/unix/tkUnixWm.c +++ b/unix/tkUnixWm.c @@ -2159,8 +2159,6 @@ WmIconbadgeCmd( Tcl_GetString(objv[2]), Tcl_GetString(objv[3])); if (Tcl_EvalEx(interp, cmd, -1, TCL_EVAL_DIRECT) != TCL_OK) { - char *msg = Tcl_GetStringResult(interp); - Tcl_SetResult(interp,msg, TCL_VOLATILE); return TCL_ERROR; } return TCL_OK; |