diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-03-04 02:22:36 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-03-04 02:22:36 +0000 |
| commit | 9eac9d0bbd54ecde49c6a3621ead8d98f30225cb (patch) | |
| tree | 1a2f9b6616e57e60f8223b5207a42094c9586100 /ext | |
| parent | d0fd2b4d856531c07df790f390d4d9422e7c4529 (diff) | |
| download | ruby-9eac9d0bbd54ecde49c6a3621ead8d98f30225cb.tar.gz ruby-9eac9d0bbd54ecde49c6a3621ead8d98f30225cb.tar.xz ruby-9eac9d0bbd54ecde49c6a3621ead8d98f30225cb.zip | |
* ext/tcltklib/tcltklib.c (ip_rbUpdateCommand, ip_rb_threadUpdateCommand):
get rid of warnings with Tcl/Tk 8.3 or former (backport from CVS HEAD).
git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@8066 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 905d96929..ff374b07d 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/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; } |