diff options
author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-03-03 09:47:30 +0000 |
---|---|---|
committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-03-03 09:47:30 +0000 |
commit | 90bdc3367715550049175aec44dd6f072039f9f4 (patch) | |
tree | fd091c9330b962abcdc271239c7d92025d827ac0 /ext/tk | |
parent | 4a4ff7fac1c33ab1a880010965619f0cc1d998c9 (diff) | |
download | ruby-90bdc3367715550049175aec44dd6f072039f9f4.tar.gz |
* ext/tk/tcltklib.c (ip_rbUpdateCommand, ip_rb_threadUpdateCommand):
get rid of warnings with Tcl/Tk 8.3 or former.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8059 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk')
-rw-r--r-- | ext/tk/tcltklib.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index 905d96929f..ff374b07d4 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -2909,7 +2909,7 @@ ip_rbUpdateCommand(clientData, interp, objc, objv) flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; } else if (objc == 2) { - if (Tcl_GetIndexFromObj(interp, objv[1], updateOptions, + if (Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)updateOptions, "option", 0, &optionIndex) != TCL_OK) { return TCL_ERROR; } @@ -3060,7 +3060,7 @@ ip_rb_threadUpdateCommand(clientData, interp, objc, objv) flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; } else if (objc == 2) { - if (Tcl_GetIndexFromObj(interp, objv[1], updateOptions, + if (Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)updateOptions, "option", 0, &optionIndex) != TCL_OK) { return TCL_ERROR; } |