From 437fb244f494fbe5438ee89b232f19dd87d64b15 Mon Sep 17 00:00:00 2001 From: nagai Date: Fri, 4 Mar 2005 02:22:36 +0000 Subject: * 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: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8066 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tcltklib/tcltklib.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ext') diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 905d96929f..ff374b07d4 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; } -- cgit v1.2.3